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| jeux, enseignement, professionnels, utilitaires, etc. 
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et un tableau comparatif de tous les Basic 
pour pouvoir utiliser les programmes sur : 
Alice, Apple, Atari 400, Atom, BBC, Commodore 64, DAI, DIET <7 1408 Le 
MZ 80 À, Oric, PET/CBM, TO 7, 199, TRS 80 mod. 1 et 3, Vic 20, ZX 81, ZX Spectrum 
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DES BONS POINTS POUR LA BASE 
DE DONNÉES dBASEII dASHTONTATE 


dBASE Il est un prodigieux outil de programmation qui 
vous permet de réaliser vos programmes de gestion 
beaucoup plus rapidement qu'avec des langages tradi- 
tionnels. 


Avec dBASE Il vous créez vos grilles de saisie, ouvrez des 
fichiers relationnels, réalisez des tris et sélections, 
formatez vos listages à la demande. Vous réalisez ainsi 
en quelques jours des programmes se présentant comme 
ceux des grands systèmes et dont l'étude vous aurait 
demandé des mois. 


dBASE Il est interfaçable directement à des logiciels 
graphiques pour représentation en couleur à l'écran et 
imprimante ou table traçante des courbes, barres, ca- 
memberts relatifs au contenu de vos fichiers dBASE II. 


dBASE Il est disponible sous CPM/80, CPM/86 et 
MS-DOS. Les formats sont 8 pouces simple face/simple 
densité, visiotexte IBM. 5 pouces 1/4 : ordinateur per- 
sonnel IBM, SIRIUS, ZENITH, DIGITAL, TEXAS, etc... 
dBASE Il est livré avec le manuel d'utilisation, un guide 
de formation et les messages d'écran en Français. 
dBASE II est livré avec une disquette d'essai limitée à 
15 enregistrements. Si sous 30 jours vousn'êtestoujours 
pas convaincu, nous vous rembourserons intégralement 
le produit. 

Le guide de formation de dBASE II est disponible sépa- 
rément. 

Ceux qui possèdent déjà la version Américaine peuventse 
procurer la mise à jour française de dBASEII. 

L'ÉCOLE PIGIER propose des stages de formation sur 
dBASE II (Tél. 233.44.88). 

Contactez-nous pour de plus amples informations sur 


dBASE Il POUR LA FRANCE 


—— + 
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Gestion de stock réalisée avec dBASE II 


x18 COMPARATIF DE VENTES 1/04/1583 
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Graphique obtenu sur imprimante ordinaire avec 
le logiciel GRAPH de FOX & GELLER ne nécessitant 
pas de fonction graphique du micro-ordinateur. 


FA La Commande Electronique 


LL 7,RUE DES PRIAS — 27920 SAINT-PIERRE DE BAILLEUL 


TÉL. (32) 52.54.02 


TÉLEX LCE 180 855 





Pour toutes précisions sur la société ou le produit présenté ci-dessus : Référence 101 du service-lecteurs (page 172) 
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L'ORDINATEUR DE POCHE, Service Abonnements, O154 54 
39 RUE DE LA GRANGE AUX BELLES 78484 PARIS CEDEX 10 
Prénom 
Adresse 
Pays Code postal Ville 








Veuillez m’abonner pour 1 an à L'ORDINATEUR DE POCHE ; 
Ci-joint mon règlement de 130 FF (Belgique : 1150 FB ; Suisse : 40 FS ; autres pays : 170 FF) 
(Tarif par avion: Afrique francophone (sauf Zaïre): 205 FF; autres Afrique, Amérique: 865 FF; Asie, Océanie: 895 FF) 
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Parlez-moi Basic. Nombre d'ordinateurs par- 
lent Basic, et pourtant ils ne s'entendent pas : 
chacun parle son patois. Aussi nous vous pro- 
posons de passer à la loupe cent instructions 


Le Logotron : une nouvelle science qui joue 
avec les mots. Rendez votre ordinateur indivi- 
duel intarissable. 


Nous avons trouvé le monstre du Loch 
Ness ! Mais si! Cette grande première fran- 
çaise laisse le monde entier abassourdi. Vou- 
lez-vous jouer à le retrouver avec nous ? 


Jouez au morpion. Un jeu injustement dé- 
laissé, mais après tout aussi beau que les 
échecs ou les dames, le go ou Othello. 


Le compte est bon. Pour lancer cette petite 
phrase lors de l'émission télévisée bien 
connue. 


Le supporter de football. Gardez en mé- 
moire l'ensemble du championnat grâce à ce 
programme et à ses fichiers. 


Empilez des cubes : les enfants résoudront 
ce problème bien plus vite que le programme 
que nous vous proposons, mais ce dernier 
présente bien des possibilités d'amélioration. 


Parcourez les méandres d’Isola : un jeu 
simple à apprendre, mais gagnerez-vous 
contre votre ordinateur ? 


Le casse-brique de votre ordinateur tient en 
quelques lignes : un jeu vidéo où vous aurez du 
mal à battre vos enfants. 


Donjons et dragons. Découvrez les jeux de 
rôle avec ce programme qui vous fera frémir. 





UN INTERPRETE UNIVERSEL 


sur dix-neuf ordinateurs parmi les plus répan- 
dus. Ce tableau comparatif vous permettra 
d'adapter facilement les programmes d'un or- 
dinateur à l’autre. 


JEUX mm mme mme 


Construisez des alexandrins automatique- 
ment grâce à ce programme. Tous ces vers 
n'auront pas un sens évident : comme les 
oracles, à vous de reconstituer le sens caché. 


58 


61 
64 


Voulez-vous jouer au tennis ? Votre ordina- 
teur se charge de vous fournir le court, les 
balles et les raquettes. 


Voyage en Crête. Perdu dans le labyrinthe, 
Thésée ne devait affronter qu'un seul mino- 
taure. lei vous serez seul, les minotaures seront 
légion et le labyrinthe invisible : un jeu terrifiant. 


Une course automobile sur votre écran. 
Vous n'auriez pas réussi votre permis de 
conduire. en moins de 4 986 leçons. 


Lewis Caroll ou comment la logique rejoint le 
merveilleux. Atmosphère, personnages et 
décor de cette aventure-jeu informatique sont 
authentiques, puisqu'ils sont humains. 


71 


15 
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Le jeu d’Awalé est à l'Afrique ce que le Go 
est au Japon, ou les échecs à l'Europe: 


Le I-Ching ou Livre des changements cor- 
respond, dans la philosophie Zen, à nos ora- 
cles. Raffinons le procédé avec un ordinateur. 


L’alunissage est une manœuvre délicate. 
Mais ici vous ne courrez aucun risque. 


Panique au fond des mers. La torpille tra- 
verse sans dommage l'écran de votre ordina- 
teur, et pourtant... 


APPLICATIONS PROFESSIONNELLES. 


14 
14 


Vérifiez vos chèques. S'i vous arrive parfois 
de recevoir de nombreux chèques, un pro- 
gramme pour ne pas craindre les fautes de 
frappe lors de leur prise en compte. 


Calculez vos amortissements. Déterminez 
les montants des amortissements sur les maté- 
riels que vous avez acheté. 


Les files d’attente, un problème familier, quo- 
tidien presque. Pour les prévoir et s'organiser 
en conséquence. Ce programme de simulation 
prend pour exemple un péage d'autoroute. Il 
peut aussi s'appliquer à des situation telles que 
le passage aux caisses d'un supermarché, les 
transports de marchandises, la gestion de 
stocks, etc. 


14 


APPLICATIONS DOMESTIQUES.____ 


152 
153 
157 


Intéressez-vous à vos intérêts. Un pro- 
gramme pour déterminer les taux d'intérêt que 
Vous « offrent » les organismes financiers. 


La trésorerie familiale. L'ordinateur excelle 
dans les calculs : il aide ici à gérer les dépenses 
et le budget de la famille. 


Un calendrier perpétuel. Bien utile pour as- 
socier à chaque date le jour de la semaine 
correspondant. 







Le temps, c’est de l'argent. Faites vous aider 
par votre ordinateur pour tenir votre agenda. |l 
a de la mémoire, lui. 


15 
161 
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Pour organiser votre tournoi, ne perdez pas 
la boule, même si vous avez de nombreux 
concurrents. Un programme à proposer à 
votre association sportive ? 


Autour de la corbeille. Pour ceux qui maïtri- 
sent bien ce qui se passe à la Bourse, gérez un 
portefeuille de titres. 
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Mettez de l’ordre dans vos données. Vous 
devrez certainement, à un moment où à un 
autre, classer vos données ; par exemple dans 
l'ordre alphabétique. 


Imprimer des étiquettes est une tâche sou- 
vent fastidieuse. Pourquoi ne pas vous faire 
aider d'un ordinateur ? 


Un programme saisissant qui vous permet- 
tra d'assurer la qualité des données que vous 
utiliserez. 


Gagnez de la place et du temps : il vous 
suffit, pour cela, de faire varier la longueur de 
vos enregistrements. 


Pour gérer des fichiers, il faut connaître la 
technique des listes linéaires doubles que vous 
présente ce programme. 


Découvrez les vertus de l’accès indexé. 
Accès séquentiel ou accès direct ? L'accès 
indexé, troisième voie, combine les avantages 
des deux méthodes. 


Recherche séquentielle dans une table. 
Une solution efficace si la rapidité n'est pas le 
critère le plus important. 


Recherche dichotomique. Une méthode 
pour retrouver rapidement un élément dans 
une table ordonnée. 


ENSEIGNEMENT 


129 
131 


133 


135 
137 


O tempora, o mores ! Ne voilà-t-il pas que les 
ordinateurs se mettent à aider l'apprentissage 
des déclinaisons ? Grâce à ce programme, 
(re)trouvez votre latin. 


Les mathématiques à l’école. Les calculs de 
multiples et de diviseurs sont des opérations 
faciles : Un programme utilisé par un ensei- 
gnant pour ses cours. 


La multiplication en Egypte. |! y a plus de 
deux mille ans, on utilisait déjà le système 
binaire. Apprenez à multiplier avec 0 et 1. 


Le calcul mental : un jeu d'enfant. Pour 
vous essayer à un jeu ancien : la multiplication. 


Non! Apprendre la géographie n’est plus 
rébarbatif avec un ordinateur individuel. 


MATHEMATIQUES... 


87 


Représentez vos données avec des histo- 
grammes. Un dessin vaut mieux qu'un long 
discours. Représentez vos données plutôt par 
des graphiques que par des chiffres. 


Tracer des courbes sur écran : une solution 
visuelle pour études de fonctions. 


117 
119 
121 
123 
124 
125 


127 
128 


Pour manipuler des caractères, il est utile de dispo- 
ser des six sous-programmes que nous Vous présen- 
tons ici. 


Connaissez-vous les listes inversées ? En complé- 
ment à l'article de la page 111, pour en savoir plus sur 
l'accès indexé. 


Ne laissez pas entrer n'importe quel octet dans vos 
fichiers. Deux sous-programmes pour entrer des nom- 
bres ou des caractères en les vérifiant à la saisie. 


Au commencement d’un programme est le menu. 
Le mieux est de disposer d'un programme standard et 
de l'adapter. 


Réalisez la fusion ou l'intersection de deux tables. 
Vous aurez besoin de ces méthodes pour comparer ou 
grouper deux fichiers. 


Pour avoir des programmes lisibles, il suffit de 
demander à votre ordinateur de faire un effort de 
présentation. 


Accélérez vos recherches en utilisant une table. En 
voici la recette. 


Evitez les destructions de fichier. Une solution 
simple : un fichier différentiel. 


Ce numéro contient en en î : 
encart Un bulletin d'abonnem 
et de cartes-réponses paginé 1 1 et 12 ne 
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BEAC 


6 


LE CLUB 


EN VENTE CHEZ : 
02 ST-QUENTIN 
COGNET 


F3 tue Victor: Basch 


(23) 62.7289 


À. OLY 4 FILS 

Librairie Classique de Moulins 
En haut de la rue d'Allier 

(70) 44.43.46 


et1, rue Oenis-Papin (70) 44.79.74 


JEAN SICARD 
Place du Général-de-Gaulle (92) 31.01.63 





” DAVAGNIER 


3, plèce Jean-Marcellin (92) 51.01.17 


SORBONNE PAPETERIE 
33, tue Gioffredo (93) 62.14.23 


SORBONNE INFORMATIQUE 

40, rue Gioffredo (93) 85.17.55 

CANNES 

SORBONNE PAPETERIE 

7, rue des Belges (93) 99.10.13 

FOIX 

SURRE 

29, rue Delcassé (61) 65.01.63 
ILLAU 

TREMOLET 

8, place du Mandarous 

BP. 78 (65) 60.07.01 

MARSEILLE 

MAUPETIT 

142, La Canebière (91) 48.71.77 

MARSEILLE PAPETERIE 

46, tue de Rome (91) 33.36.69 

4 CAEN 
LOISELET 


2-10, place Pierre Bouchard (31) 85 50.80 
ISIEUX 
LOISON-BOBO 





28, tue de la Libération (31) 13 

CONDE-S NOIREAU 

LOISELET 

5, rue St-Pierre (31) 69.01.20 
5 AURILLAC 

DELPRAT 

# ue des Forgerons (71) 484218 









IGOULEME 
LHOMME 

186, route de Bordeaux 
(45) 95.27. 37 

LAR 
SAINT-MARTIN 

1517, rue St-Yon - BP. 107 (46) 41.24.46 
Zi Périgny (46) 4417 87 


(45) 95.61.61 





8 BOURGES 


AU GRAND MEAULNES 
Place Cujas (48) 24.85.71 


Le grand réseau national 
Culte med (HECTOR E DuLLLE TT 4 
et consommables informatiques 


PROUSTEAU 

AN, rue de la République 

37, Tue Victor-Hugo 
21 CHATILLON-SUR-SE 
MICHEL MAZZOTTI 
Librairie-Papeterie 
Chätillonnaise 





(48) 75.25.67 





3, rue du Président-Carmot (80) 91.09.55 
22 LOUDEAC 

Mesdames CHEVÉ 

8, avenue des Combattants 

BP. 22 (96) 28.01.01 


GUERET 
SAINT-MARTIN JEUNE 
l Grande: Rue (55) 52.46.39 


‘ G. BINET, JL. AUBARBIER 
de rue de la République (53) 59.02.54 


25 ANCON 
Ets ; CAMPONOVO 
50, Grande-Rue (81) 81.32.01 
Dépôt rue Gay-Lussac 
21 (81) 50.53.98 


” CRUSSOL 
10, bd du Général-de-Gaulle (75) 43.09.56 
|” JEAN LEGUÉ 


10, rue Noël-Ballay (37) 21717 





9 BREST 
Librairie JEAN-JAURES 











170, rue J.-Jaures (98) 44.61.56 
0 NIMES 
BUROTYP 
21, rue de la Loue (66) 67.41.19 
ULOUS 

CASTÉLA SA. 

20, pl. du Capitole (61) 23.24.24 
© Ch. Robert 

47-49, rue du Pas-St-Georges (56) 52.11.23 
34 MONTPELLIER 

BORRAS- CLAVERIE 

25, cours Gambetta (67) 59.11.54 

SÈTE 

BORRAS-CLAVERIE 

25, quai N Noël- “Sunon (67) 74.36.08 





a 


FOUGE 
MARY. 
10, av. du Général-de-Gaulle 
12, bd Jean-, -Jaurès 





w 


(99) 98.75.40 








UNIC- IDESS 

8, rue Ampêre (76) 21.37.81 
JALLIEU 

anciens Ets FILLET 


44, rue de la Liberté 
39 LONS-LE-SAUNIER 
MARQUE-MAILLARD 
13, rue Lecourbe 
ENDOME 
Ets Ph. DENIS 
20 et 56, av Gérard Yvon 


(74) 93.07.38 


(84) 47.28.25 





(54) 77 0287 





SCHOOL-LOISIRS 


2 rue Baley (77) 25.02.63 + 


6 ter, rue Ouche-de-Versailles 
(40) 74.15.59 


Un spécialiste 
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ZA. bd de l'Est 


u 


 BASTIEN 


AMC. 
Metèriels et fournitures de bureau 
13, tue des Minimes (38) 6262.58 





UR-LOING 


Librairie Papeterie es Ecoles 


# er, rue Marceau (38) 85.4471 
TARGIS 
MAJUSCULE 
(38) 93.52 91 


3, rue de Loing 





SARL. GALI 
Librairie des Écoles THOMAS 
10, rue des Cornières (53) 66.13.82 








J.-P. ADRIEN -— S.E.L.P.EL. 

26, rue St-Julien (41) 88.67.09 
M.B. BROUILLET 

30, bd Camot (41) 88.35.65 
CHOLET 

M.B. BROUILLET 

k rue St-Eloi (41) 62.53.74 





MB, BROUILLET 


77, rue d'Orléans (41) 51.35.29 


TOURLAVILL CHERBOURG) 
HABERT 

Équipement et fournitures 
de Bureau 

Rue des Métiers - 


(33) 43.32.66 


EIMS 
GUERLIN MARTIN ET FILS 

42, place Drouet-d'Erlon (26) 88.40.30 
JOINVILLE 

BOLOT-GEOFFRIN 

53, rue Aristide-Briand 


B.P. 26 (25) 96.14.99 


22 à 26, rue Germain-Chaner (8) 3730.21 


5 LORIENT 
J. CRAFF 


!, place Aristide-Bnand (97) 64.32 57 
PONTIVY 

GILLES BLAYO 

49, rue Nationale - 8.P. 107 (97) 25.04.92 
METZ 

PAUL EVEN 

Le rue Ambroise” Thomas (8) 775.07. 
PIERRON- MULLER 

5, tue Sainte-Croix - BP. 915 (8) 798.06.91 





6, rue du Commerce (86) 28.08.18 
9 LILLE 

S.E.G. DAUPHINOR 

= rue Esquermoise (20) 54.87.18 


LOZÉ- BERTRAND 
126, rue de Villars 


(27) 44.00.88 





Place Jean-Bart 
Librairie-Papeterie 
Universitaire DEMEY 
k rue du Lycée 
AZEBROUCK 
BURO- FLANDRES 
Résidence Lemire 


(28) 65.26.83 


(28) 66.96.54 


(28) 41.95.02 


2. piece æ la République (20) 24.38.21 


QUENEUTTE 


5, rue du Dr-Gérard (4) 445.12.74 + 


CREIL 
QUENEUTTE 
2. rue de la République (4) 425.04.26 + 


| BERNARD GALLOT 


e" 


ss 


Maison de la Presse 





Place du Général es (Eu 37.223 
MORT, / CH 

GAUTIER SA. R. L. 

48. place Chares-de-Gaulle (33) 25.01.16 

BRUNET 

és rue Sengtte (21) 23.46.34 

BUROCONFOR 

47, bd Pasteur (21) 56.50.10 


BOULOGNE-SUR-MER 
DUMINY 

Angle rue Faidherbe 
si rue M “Hugo (21) 30.06.75 


AND 





LES VOLCANS D' "AUVERGNE 


80, ss de Gergovia (73) 93.64.40 


TONNET 

css Marguerite: Laborde (59) 30.77.33 
SACQUES MURILLO 

13. place Pasteur (59) 59.19.94 


ARBES 
BIGORRE BUREAU 
14, rue Abbé-Torne 


(62) 34.73.04 (62) 34.66.33 
6 PERPIGNAN 

BRUN Frères 

22 me des Augustins (68) 34.41.59 
9 VILLEFRANCHE-SUR-SAÔNE 

DEVELAY é 

Librairie des Ecoles 

986, rue Nationale (74) 65.01.49 

60, rue Nationale (74) 68.05.56 

MACON 

RENAUDIER SARL. 

23, rue Sigorgne (85) 38.32.90 

= CREUSOT 
RENAUDIER 
22, rue Lan (85) 55.00.42 


LE 
Galeries du Livre DOUCET 
66, av. du Général-de-Gaulle (43) 24.43.20 





4 THONON-LES-BAINS 

BIRMANN 

7, rue des Arts (50) 71.25.45 
5 PARIS 16e 

LAMARTINE 

NB, rue de la Pompe (1) 727.1. 


a 


OUEN 
LE BUREAU MODERNE 
Maison DELAMARE 
34, rue St-Nicolas 

VETOT 

Maison DELAMARE 
36, Le Mail - 6, rue des Victoires 
(25) 95.02.36 


(35) 71.44.02 


MELUN 
JACQUES AMYOT 


22, tue Paul-Doumer (6) 452.03.91 + 


78 VERSAILLES 
RUAT 


26 et 69, avenue de St-Cloud 

(3) 950.21.49 (3) 953.69.53 
MANTES-LA-JOLIE 

TONNENX 

47, rue Netionale 
4-6, rue de Colmar 





(3) 643.32.37 


-MAJUSCULE: Vous atten 
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62, rue Croix-Verte 


© 


4 VITRY-SUR-SE 





CHATOU 

SOFIP 

Bureëux : 1, rue Paul-Abadie (3) 952.73.37 
Entrepôt 

10 bis, [me DAATENIPe Berthelot 





BROUILLET 


ce pre (49) 65.19.45 
DUCLERQ 
83, place de l'Hôtel-de-Ville 
BUROMODERN 
28, place de la Libération (22) 24.21.92 








ALBI 

VERDEILLE 

Librairie des Ecoles 

(63) 54.07.43 
TOULON 


” BONNAUD 


7, boulevard de Strasbourg (94) 22.27.52 
AVIGNON 
AMBLARD 


10-14, portail Mathéron (90) 82.51.21 





He tue des Marchands 
HE-SUR-YON 
CHAGNEAU 

1, rue de la Vieille Horloge 


(90) 74.23 81 





(St) 37.30.36 


6 POITIERS 
A. GRANVAUD 


18, rue Dom.-Fonteneau (49) 41.05.53 


EPINAL 
PINAL 


| HOMEYER 


2 pue du 170 RI (29) 34.06.20 





DUFLOUX 


11419415, rue de la Draperie (86) 51.00.12 
1 ARPAJON 

LEMONNIER 

8, rue Guinchard (6) 490.00,98 





LENFANT 


2. avenue du Parc {1) 680.05.98 


1e Pierre BLIAH 
Rue Ampere - Z.I 
La Bureautiére 
13, quai Pothuis 


(3) 01.22.58 
(3) 038.24.30 








Aujourd'hui aucun domaine n’est plus évolutif que celui des micro-ordinateurs familiaux. Les modèles se suivent à un rythme élevé, appor- 
tant sans cesse de nouvelles améliorations voire des innovations déterminantes. Pour vous guider dans votre choix etvous aider à vous pro- 
curer l'appareil le mieux adapté à l'usage que vous lui destinez, faites confiance aux spécialistes MAJUSCULE de votre région. 
MAJUSCULE, c’est le seul réseau aussi étendu de micro-ordinateurs familiaux et de consommables informatiques. 

L'importance de ce groupe, plus de cent distributeurs en France, lui permet de vous proposeruntrès large choix de grandes marques. Vous 
y trouverez l'accueil, le conseil et le sérieux des spécialistes. Choisissez MAJUSCULE près de chez vous. 


MAJUSCULE, le réseau conseil des produits de pointe 


Demandez notre catalogue 
consommables informatiques. 
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: du FX-702 P 
par Jean-Pierre Richard 
Instructions et commandes, variables 
et mémoires, fonctions périphériques, 
cet ouvrage fournit aux débutants tous 
les éléments de base nécessaires à la 
[ programmation en langage Basic de la 
es ] Lrn00 “a Eds Casio FX702 P. ILest complété de nom- 
| WE \ à : ms-80 EU breux exemples et exercices d'appli- 


cation. N ; 
216 pages - 92,00 FF/710,00 FB 





découverte du PB-100 
“par Pierrick Moigneau 



































La découverte du PC-1500 














#f | par Jean-Pierre Richard 5 + Ce livre dévoile progressivement toutes 
$ $ | Un ouvrage pour les néophytes, Curieux F & léSuracettes de l' ateur de poche 
; qui veulent en savoir plus sur leur ordi- / Cas: PB-100 et du Basic à l'aide de 
V1! nateur de poche PC-1500 (ou TRS:80 0 2 nombreux exemples d'application, per- 


PC-2). Quelles instructions etcomman- 
des emploie-t-il ? Quels types de variæ 
bles utilise-t-il ? Comment la mémoire 
est-elle structurée ? Toutes ces ques- 
tions et bien d'autres trouvent leur 
réponse dans ce livre. Un manuel 





À complété d'exercices, d'exemples d'ap= A 
| découverte du PC-1251 plication et. d'un index: 2! 
 tpar Jean-Pierre Richard 208 pages - 92,00 FF/710,00 FB FA 


Comment aborder la. programmation 
du. Sharp PC-1251 ? Après une étude 


fonctionnelle de la machine, la pros 
* gramimation en langage Basic est étudiée 
de fa agressive. Citons parmi les 


thèmes ti : instructions et com- 
mandes, variables et mémoires, sous- 
programmes et 1ents de chaînes, SES 
gestion des périphériqu L 
exercices d'application el 
Viennentcompléter ce manüel qui 
nira à L'utilisateur tous les élé 
base indispensables à la programm: 
en basic. 

224 pages - 92,00 FF / 710,00 FB 





















EH 





La découverte de Id TI-57 

par Xavier de la Tullaye 

S'adressant aux débutants, cet ouvrage 
les conduira, dans un fangage clair, de 
l'élémentaire 2 + 2 à des programmes 
pertectionnés. Après une étude fonction- 
nelle de la calculette, la programmation 
est expliquée progressivement, de la 
conception à la réalisation en s'appuyant 
sur de nombreux exemples. 

144 pages - 72,00 FF/555,00 FB 






La découverte de l'Apple Il 

Apple //e et Apple} plus 

par D. Schraen et F. Lévy 
Apple//eouApplell plus? Peu importe. 
Ce livre, bien qu'orienté sur Apple //e, 
vous initiera en douceur au maniement 
de ces deux ‘générations d'Apple et 
à leur langage de programmation, 
Basic Applesoft: Sa démarche progre: 
sive et poncluée d'exemples en fait un 
véritable ouvrage pour débutants. 
Ceux-ci pourront tester, grâce aux 
exercices en fin de chapitre la bonne 
assimilation des concepts étudiés. 


h 4 
nn où 
Va aie aus É 7. ; 


é #k hi 







BXISTE 
ses possibilités 














JAOQUES BCÉGONTIER ET SOPHIE LREBION 


e du Commodor 


in David 


rdinateur individu 
s applications sérieuse 


d'initiation 


DÉSIGNATION 


à P.S.I. DIFFUSION 
à P.S.I. BENELUX 
ou pour la Suisse P.S.I. SUISSE 


ou pour la Belgique et le Luxembourg 


5 
Ë 
£ 
ë 
8 
‘do 
ë 
: 
Lu 
y 
© 
N 
à 
> 
ë 


77402 Lagny-s/Marne Cedex 


P.S.I. DIFFUSION. 
FRANCE 


BP 86 


Téléphone (6) 006.44.35 
P.S.I. BENELUX 


(à P.S.I. DIFFUSION uniquement) 


w.lirilurl rs ll 1) Date c'expration 


D Paiement en FF par carte bleue VISA 
Signature (obligatoire pour paiement par carte de crédit) 


Code postal L_1 111 |Ville 


O Paiement par chèque joint 


5, avenue de la Ferme Rose 
1180 Bruxelles 

PS. Suisse 

Case Postale 


BELGIQUE 
Téléphone (2) 345.08.50 


Téléphone (037) 23.18.28 


au Canada 


Route Neuve 1 
SCE Inc. 


1701 Fribourg 


Tél. : (514) 935 13.14 


65, avenue Hillside 


x valables jusqu’au 31.12.83 


P 
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LA BOUTIQUE 


a TD. INFORMATIQUE 
POUR 
L'ENTREPRISE 








Micro-ordinateur d'initiation. 


Le. 
État Langage BASIC. 9 couleurs. Mé- 
moire 8 Ko ROM. Connectable 
; sur tout téléviseur. Avec livre- 


guide. 


© PROMOTION 1195 Ftiec. 


APPLE Ile 64 K - Clavier Azerty 
+ moniteur Philips + floppy 









Sinclair ZX 81 
® 580 F 





er 
ORIC 48 K + manuel fr. 


RESSE . + Cordon Peritel 4 100 F 





+ Imprimante 4 couleurs 


67, cours Lieutaud 13006 MARSEILLE 
Boutique :42.99.42 S.A.V.:78.92.75 


Boutique à Toulon & 
no 270, Bd. Foch - Immeuble Le Concorde 


Tél:94/ 93.11.20 TOULON 
1] 0 L'Ordinateur Individuel 
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BULLETIN DE COMMANDE 


Pour vous abonner 
(pour commander des numéros) 


L'ORDINATEUR 
INDIVIDUEL 


le magazine de l’informatique pour tous 


Complétez 
votre 
information 
grâce 

au 

service 
lecteurs 
en 
utilisant 

ia 

carte 


utilisez cette carte 
(Voir au verso) 


TLORDINATEUR 


INDIVIDUEL 


SERVICE PETITES ANNONCES 
39 rue de la Grange-aux-Belles 


75484 Paris Cedex 10 
FRANCE 


AS NP D RD ON 7 it DU PA Re à NI ENS 2 NI CR ue 





lÈREE 
| 2 Critiques, suggestions, souhaits. que nous lirons avec la plus grande 
3 attention et que nous publierons éventuellement. 
| & 
C] | 8 à 
CI-contre : : 
|H + |£ 
Q LL 
[8 à 
| 2 (u 
DR AE 
l'AS 5 
[Tel à 
(Cerclez | 5 = 3. o 
l éros des | 
es numéros aes " vw ; ? = Le SN LS en ER L Se FE 
| 4e Er nl ERRSRERERERSESSSRERRENHANERSES 
1 SL chordiolne ie ® Hero te ue = 
différentes ES e u 7% RSRALSEIRSIRRRARENSAIRERRERESRERS À 
Û - ë : EG o end = sves Es = ° 
informations | = S 2 Fe . RRRRRRRRRSNNRSNSRSRSERENSERSSS 3 
qui vous | e SUDSSSDESSENFISSEEBRSENSALERERES È 
2 8 
l= 2 FE S2TLLSHRRSSEGSSBSSBLRENPENLERES 
" ; Ô SC 
intéressent) de 5 8 ERRSRESRESENNERERSASINLILLSSSS 
an > 
ES E DE SSR3SSTSSBSDSESESESPENCELEEEERS 
© 
| Z = © © Ü © SRBERSDERBERENPRLEREPSENSIHESETSSS 
ES LE ARR CE ER ES OP OR 
[Ee # ge D SRE SBRTSNTISESFTRENBERSTESS 
[ © o© 5 à OÙ -sn+rwor Dog No rnLESSREANNIRERRERES 
[+ <=. cos a NOLLOVA3U 
| 








L'ORDINATEUR INDIVIDUEL (service abonnement) 
39 rue de la Grange-aux-Belles, 75484 Paris Cedex 10 


[ Je souscris un abonnement pour un an (11 numéros) à L'ORDINATEUR INDIVI- 
DUEL (Tarif France : 198 FF TVA 4 % incluse ; Belgique : 1 650FB + 100 FB de 
port ; Etranger ou Etudiant : voir ci-contre). 


, 


[©] Je désire recevoir les numéros antérieurs suivants. (Prix d'un numéro France : 22 FF; 


Etranger : voir ci-contre.) 


par : chèque postal [] chèque bancaire [] d’un montant de 


M/Mme/Mlle 
Profession 
Adresse 
Pays Code postal LEE PR ER A Es Ville 

La photocopie de ce bulletin rempli constitue une pièce justificative légale du 
règlement effectué. Aucune facture ne sera établie par nos services. 


LE LV LE LEE 4 LE AL LS 
214 223 


Cadre réservé à nos services 


54 bis 


PETITES ANNONCES GRATUITES * 
de L'ORDINATEUR INDIVIDUEL 
Complétez la grille ci-dessous en lettres d'imprimerie en utilisant une division par lettre/signe ou 
espace. En aucun cas le message ne doit dépasser les cinq lignes de 36 caractères, adresse com- 
prise. Attention, seule l'adresse complète est admise, ni boîte postale, ni téléphone. Pour les ventes 
de matériels d'occasion, indiquez le mois et l'année d'achat au fournisseur. 


Cochez la case (une seule) de la rubrique où vous désirez voir figurer votre PA 


Diubs OContacts ORecherche de programmes Recherche de matériels OVente de matériels Oivers 
Matériel concerné (le cas échéant) 
Ordinateur individuel de table  ClOrdinateur de poche [Divers Étes-vous abonné? CJoui  [] non 





0 Nm 1 11 fo RTE en 8 ARS ONE 
AMEN PASUELLE LULU SUNNENCTE. SRE 
RP ETRUTE ER 
NT D NC ARTE ANA 0 PVO Cu De 0 D ES OO I NL NES 
LS SRE A PELLE 15 | A En EL IN RTER 


* Ces petites annonces gratuites sont exclusivement réservées à des propositions entre particuliers sans 
objectif commercial et relatives à l'informatique individuelle : recherche de matériel d'occasion, création de 
clubs, échanges d'expériences, recherches de programmes et de documentation, etc. Les annonces de ven- 
tes ou d'échanges de programmes sont refusées systématiquement. 


Le journal ne garantit pas de délai de parution et se réserve le droit de refuser une annonce sans avoir à four- 
nir de justification. 


Cette grille ne peut être utilisée plus de 3 mois après la sortie du présent numéro. 











L'ORDINATEUR 


INDIVIDUEL 


SERVICE LECTEURS 
39 rue de la Grange-aux-Belles 


75484 Paris Cedex 10 
FRANCE 


= me JE A um 2e ie 


54 bis 


nn Se Re eu ue Lu ie fe Cle Ode me tie God Cou ie MÉde Le DOS DRE te CAR ME AR ns en de Me ee US US DE Ce CE ca mate ee 


A ini Mi dut elles cuite Clé ES ds lle Ts CUT A ul lue DES AS ds ble Dal Dinls été ais tite maté aim 2 SR ee ee mu SO E e A ns er gré enter memes Éouge mtge mm .iqee-rte cmiee- Pere 


POUR VOUS ABONNER 
OU POUR COMMANDER 
D'ANCIENS NUMÉROS 


Complétez la carte ci-contre 
et adressez-la accompagnée 
de votre règlement à L'ORDI- 
NATEUR INDIVIDUEL (ser- 
vice abonnement). 


BELGIQUE : 

Soumillion 

28 avenue Massenet 

1190 Bruxelles 

Versement : Société Générale 
2100405 835-39. 


SUISSE : 

27 route du Grand-Mont 

CH 1052 Le Mont-sur- 
Lausanne ; 
Versement : Caisse d'Epargne et 
de Crédit, 10-2418 1052 Le Mont, 
compte courant n° 650 156-7. 
CANADA : 

LMPI 

4435 bd des Grandes- 
Prairies, Montréal 

Québec H1R 3N4 


FRANCE ET AUTRES PAYS : 
39 rue de la Grange-aux- 
Belles 

75484 Paris Cedex 10 


Tarif d'abonnement (1 an, 11 
numéros): France: 198FF 
TVA 4 % incluse ; Belgique : 
1 750 FB : Suisse** : 67,5 FS ; 
Canada“: 30 $ ; autres pays* 
300 FF. Étudiants Gjustifica: 
tion indispensable) : France : 
154 FF ; Belgique : 1 495 FB; 
Suisse : 52,5 FS. 


Prix d'un numéro antérieur 
France: 22FF; Belgique: 
178FB;%Suisse;:27,5FS;: 
autres pays : 33 FF. 


* Tarif par avion : Afrique franco- 
phone (sauf Zaïre) : 370 FF ; Amé- 
rique, autre Afrique, Moyen- 
Orient, Océanie : 465 FF; Asie: 
545 FF. 





Complétez 
votre 
information 
grâce 

au service 
lecteurs 

en utilisant 
la carte 
ci-contre 


(Cerclez 

les numéros 
des différentes 
informations 
qui vous 
intéressent) 


Editeur : Jean-Pierre Nizard. 
Directeur de la rédaction : 
Bernard Savonet. 


Rédaction 


Rédacteur en chef : 
Jean-Pierre Brunerie. 


Dossier « 50 programmes » 
Coordination : Antoine Jennet 
Réalisation : Gauthier Cazassus 
Couverture : Dominique Le 
Nouaille 


Secrétariat de rédaction : 
Martine Solirenne 

assistée de Jeanne Bronner. 
Rédaction : Thierry Courtois, 
Christian Tortel. 


Coordination numéros spéciaux : 


Antoine Jennet. 

Maguette : Eric Buhr. 
Administration : Michelle Aubry. 
Secrétariat : Myriam Fitoussi. 


Basic(s) 


Pi la parution de son premier numéro, en septembre 
1978, L'Ordinateur Individuel a publié quelque mille pro- 
grammes. 


Il fut bien difficile pour nous d’en sélectionner cinquante 
parmi cette quantité impressionnante. Nous avons essayé de 
couvrir de nombreux domaines : jeu, éducation, mathémati- 
que, utilitaire, professionnel, domestique et de proposer des 


programmes « prêts à l'emploi » pour plusieurs ordinateurs. 


Mais au-delà du programme Basic directement consomma- 
ble par un certain type de machine, il aurait été dommage 
de ne pas pouvoir faire profiter d’un même programme les 
utilisateurs de matériels différents. Car chacun sait que si le 
Basic est le langage le plus couramment utilisé sur les 
ordinateurs individuels, on peut noter des différences d’une 
machine à l’autre. “ 
C'est pourquoi il nous a semblé indispensable de publier 
dans ce numéro un tableau de traduction qui regroupe cent 
instructions Basic Microsoft, avec leur traduction pour 
19 ordinateurs parmi les plus répandus. 

En attendant l'apparition d’un Basic vraiment standard, 
disponible sur chaque ordinateur individuel. 


Antoine Jennet 


Publicité-promotion 


Chefs de publicité : 
Marie-Christine Seznec, 
Colette Sauvant 

assistées de Fatma Boulila. 
Administration : 

Maryse Marti assistée de 


Anne Stolkowski. 
Promotion : 
Brigitte Millé. 


Ventes 


Diffusion NMPP : Sophie Marnez 
Abonnements : Muriel Watremez 
assistée de Sylvie Trumel 


L'Ordinateur Individuel 
est une publication du 


groupe Ests 


i » 
Bureau de Vérficotion 
de la Publicité 
sp a508 - 25362 Pors Ch DE 
” man 


Directeur de la publication 
Jean-Luc Verhoye 


SIXIEME ANNEE 





La loi du 11 mars 1957 
n'autorisant, aux termes des 
alinéas 2 et 3 de l’article 41 d'une 
part, que « les copies ou 
reproductions strictement 
réservées à l'usage privé du 
copiste et non destinées à une 
utilisation collective », et d'autre 
part, que les analyses et les 
courtes citations dans un but 
d'exemples et d'illustrations, 

« toute représentation ou 
reproduction intégrale, ou 
partielle, faite sans le 
consentement de l'auteur ou de 
ses ayants-droit ou ayants-cause 
est illicite » (alinéa 1°" de l'Art. 40). 
Cette représentation ou 
reproduction, par quelque 
procédé que ce soit, constituerait 
donc une contre-façon 
sanctionnée par les Art. 425 et 
suivants du Code Pénal. 
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L'AGENCE AUX7CUENTS 


Si vous savez vous servir 
de cet instrument, 

vous saurez sûrement faire 
tourner nos logiciels en deux 


heures. 


Avec un peu de bonne volonté, bien sûr. 

Les logiciels Saari ne sont pas faits pour des 
programmateurs émérites ou des informaticiens 
avertis. 

Les logiciels Saari sont suffisamment faciles à 
utiliser pour que vous, Directeur d'une PME, Chef 
Comptable, Avocat, Expert comptable, etc. tiriez 
le meilleur parti de la Comptabilité Saari, de la Paie 
Gipsi, de la Gestion de Dossiers ou du Programme 
de Facturation et Stock. d 

Les manuels sont bien clairs, écrits en bon 
français et illustrés. Et, si vous avez un doute sur 
une manœuvre, une touche ou une opération, 
n'hésitez pas à utiliser le Saari Sécurité Service. 

S'il vous fallait quelques preuves des qualités 
des logiciels Saari, sachez qu'ils sont contrôlés 
par le Bureau Véritas et que la Paie Gipsi a obtenu 


la Pomme d'Or, récompense suprême décernée 
par Apple. 

La presse Informatique a, elle aussi, beaucoup 
parlé des logiciels Saari, décernant ses meilleures 
notes à leur facilité d'apprentissage ou d'utilisation, 
ainsi qu'à leur richesse fonctionnelle, leur sécurité 
d'emploi ou leur finition. 

Les quatre logiciels Saari vous rendront de gros 
services, sans jamais Vous apporter de gros soucis. 


0 e 
« L'Esprit Français » 
45, rue Galilée, 75116 Paris 
Tél. (1) 723 78 56 - Télex 611 423 
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PARLEZ-MOI BASIC 


Jean-Pierre Brunerie 
Ludwick Züber 


Vous vous êtes peut-être souvent arraché les cheveux devant le programme Basic d'un autre 
ordinateur, et que vous aimeriez bien adapter sur le vôtre. Que vous soyez chevronné ou 
débutant, le tableau que nous vous présentons vous sera d'une aide efficace. 


asic signifie « de base », « ce qui 
est le plus simple ». Basic est 
aussi le langage qu'utilisent au- 
jourd’'hui six millions d'ordina- 
teurs individuels de par le monde. Le 
langage ? Oui, dans un certain sens, 
mais, malheureusement, suivant l'ordi- 
nateur que vous avez, son Basic pré- 
sentera un ou des traits spécifiques et 
il convient donc de parler des langages 
Basic. Pour vous aider à adapter les 
programmes Basic, nous avons établi 
Un tableau comparatif qui, pour envi- 
ron cent instructions en Basic Micro- 
soft, donne leur « traduction » sur dix- 
huit ordinateurs individuels courants. 


L'adaptation de programmes Basic 
d'un OI à un autre ne pose, dans 90 % 
des lignes, que peu ou pas de problè- 
mes. RUN, NEW, END, RETURN, etc. 
sont pratiquement toujours les mêmes. 


Oui, mais que se passe-t-il avec les 
10 % restant ? Ces 10 % renferment 
toutes les variantes, tous les faux amis, 
toutes les instructions qui changent de 
Sens, toutes les possibilités d'astuces 
bien particulières (indubitablement les 
plus prisées...), bref tous les « patois » 
Basic imaginables. 


Prenons par exemple un Vic 20 et un 
Apple : en rencontrant l'instruction 
INPUT de lecture sur disque de l'Ap- 
ple, vous pourriez penser qu'il s’agit de 
là saisie au clavier du Vic 20, et modi- 
fier le programme en conséquence. 
L'exemple est simple mais GET, RND, 
CLR et autres CLS réservent, hélas, 
des surprises autrement désagréables. 


Attention aux instructions qui s’adres- 
sent à la mémoire de votre ordinateur. 
Les ordres PEEK, POKE, CALL et 
autres USR devront pratiquement sys- 
tématiquement être adaptés. Les sym- 
boles graphiques, la couleur et le son 
sont eux aussi très spécifiques à l'ordi- 
nateur utilisé et, là encore, il est préfé- 
rable de recréer plutôt que de traduire 
d'un ordinateur à un autre. 


Pour le reste, vous allez retrouver dans 
les pages qui suivent environ cent ins- 
tructions Basic Microsoft classées par 
ordre alphabétique. 

Ainsi, ce tableau pourra-t-il être utilisé, 
non seulement comme dictionnaire 
des instructions Basic, mais aussi 
comme table de traduction des diffé- 
rents ordres d'un matériel à un autre. 


Arret écifiques 
retrouver, par ordinateur, à 


Il est à noter que, pour des raisons 
évidentes d'encombrement (compte- 
tenu du nombre important d’instruc- 
tions, beaucoup étant spécifiques à un 
matériel), ce tableau ne saurait être 
exhaustif. Comme il est plus descriptif 
qu'explicatif, il conviendra de l'utiliser 
en parallèle avec le manuel d'utilisation 
des matériels considérés. 


Il complète donc celui présenté. dans ke De suivantes, 


RENUMBER 
TRACE OFF 
TRACE ON 


ES 
a. 
se 
E* 
Es 
23 
En 
AS 


OLD 

CALL CLEAR 
CON 

RES 
UNTRACE 
TRACE 


É PLOT 
SPC 


CALL 
CLEAR 
INKEY$ 
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TRADUIRE ET ADAPTER VOS PROGRAMMES 


Instructions Basic (ABS à CHR$) ea 


Foie 


Allce ABS (arg) —— (chai) — (arg) 
(Tandy MC 10) 
ABS (arg) ASC (chai) ATN (arg) CALL adr CHAIN «nom CHR (arg) 
programme » 
M Leman nel D Fa TM ES qu 
LEE] 
ABS {arg) ACS {arg) ASC (chai) ASN (arg} ATN (arg) AUTO {n°ligne | CALL adt [, var... CHAIN « nom CHRS (arg) 
début, pas] programme » 
PRE dE EH ji RE Hé Hu Fat 
a MT EN I COS A se 
ABS {arg) ASC (chain [.exp] } ASC (chai) ATN (arg) AUTO [n°figne | USR adr [registre] CHR (arg) 
début] |,pas] {param} 
B (arg) ARCCOS (arg) ASC ARCSIN (arg) ARCTAN (arg) AUTO [n° ligne CALL CHR (arg) 
début |, pas] 
54e RS Un LE CR AR wi 
Hu ME ee ne 1 sp LA sé 
PET/CBM ABS (arg) AND ASC (chai) ATN (arg) AUTO pas SYS (ac) SWAP « nom prog » CHRS (arg) 
\ 
ABS (arg) ASC (chai) AUTO {n° ligne RUN. MERGE « nom CHRS {arg) 
début {, pas] ] prog a 
ABS (arg) ASC (chai} ATN (arg) NUM [n° ligne CHRS {arg) 
début] |, pas]] 
TRS 80 ABS (arg) ASC (chai) ATN (arg) AUTO [n° ligne CHAIN «nom CHRS (arg) 
modèles 1 et 3 début, pas] programmes 
LH D RE EH RO nn pis 
ABS (ar) ACS (arg) AND CODE (chai} ASN (arg) ATN (arg} LET var = USR {adr) CHRS (code) 
N.B. ZX 81 n'utilise N.B. code ASCII 
pas ASCII le 
ABS (arg) ACS (arg) CODE (chai) ATN (arg) LET var = USR (adr} CHR$ (code) 
NB, Spectrum {possibilités N.B. code + ASCII 
n'utilise pas ASCII multiples) 


8rg.: argument numérique : exp.: expression ; chai{n) : chaine numérique ; adr : adresse ; var: variable (nom de variable) ; [']: indique une clause optionnelle ; |: indique des clauses équivalentes. 


M no 
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CENT INSTRUCTIONS BASIC A LA LOUPE 


Instructions Basic (CLEAR à CSAVE) D- 


















CLS (arg) 
(efface l'écran) 


CLOAD nom prog & 


F4 6 MMS LORS M 3 " à dr > 5 à à 
Allce CLEAR (arg) CLS CONT cos TE CSAVE «nom » 
(Tandy MC 10) CLOAD x ich. CSAVE x, fich. 
LOAD {nomfich.] | CLOSEænom» CONT COLOR = arg COS (exp} 
(idem disquette) 
FU NA ti M fi si 
lien» 


LOAD [..] Ml COLOR arg COS (exp) COUNT SAVE «... 



















































LOG (arg) LOADenomfich» | CLOSE#nfich | CLS (écran text) COLOUR arg COS (exp) COUNT SAVE [enom fich»] 
NB.CLGaune | (idemdisquetie) | N.B.CLOSE#o | CLG (écran graph) (GCOL en 
autre signification ferme tous les {ct HOME) 
(— ciCLS) fichiers 


SAVE {enom fich»] 
(idem disquette) 


CLOSE n° ich CONT COS (exp) Je 
CONT ,2,3,[  COS(exp) 
coLoRe arg 1, 2, 
3,4: graph 
CLEAR (arg) * CLOAD [enom CLOSE-n°fich | autre signification CLS arg (COLOR COS (exp) CSAVE « nom fich 
fich»] {c{ COLOR) est aussi utilisé) 
de LOAD [enom CLS [exp] CONT COLOR exp, exp, COS (exp} SAVE {e nom fich »] 
fich»] Exp, EX 
LOG (exp) LOAD «nom fich» CONT INK arg COS (exp) SAVE «nom ich, 
(idem disquette) [n° de la tre ligne] 
(idem disquette) 
LOG (exp) LOAD/Tenom | CLOSE [# n° fich] COS (exp) SAVE/T «nom 
fich» fichs 
CLOAD: on COS (exp) CSAVE « nom fichs 
{S] [AUTO] 
‘dé SN dit vin He is ra AN 
Thomson 107 autre utilisation LOAD « nom fich » CLOSE CLS COLOR arg 1, arg 2 COS (exp) 
(idem disquette) {utilisation 
particulière 
ci manuel) 
. nt 1) LÉ pi Hi 16 HE 
TRS 80 CLEAR [(arg) CLOADe [nom | CLOSE # n°fich COS (exp) CSAVE e nom fich » 
fich] » {n° fich...] 
te di nom CLOSE # n° fich COS (exp) SAVE [enomfichs, 
code contrôle] 
RH NE ds 
LOAD « nom fich » SAVE « nom fich» 
(possibilités 


CLOSE # n° fichier CLS CONTINUE INK arg COS (exp) 
PAPER arg {possibilités 
multiples) 


mutiples) 
par larg. argument numérique ; exp.: expression ; chain): chaine numérique ; adr : adresse ; var :variable (nom de variable) ; LJ: indique une c'ause optionnelle ;{ : indique des clauses équivalentes. 






CLEAR (arg) LOGT (exp) 





LOAD [enom 
fichs] 
{idem disquette) 








ss 
5 























8 





E. 
& 





SAVE « nom fich » 
(idem, disquette) 





















[A 
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TRADUIRE ET ADAPTER VOS PROGRAMMES 


Instructions Basic (DATA à FLASH) D- 














2 fsedémens Von 


Ordinateur À utisaeur [programme | sn Re AE SAS Rep 
Allce DATA var [var...] DIM nom (arg, …) EXP (exp) 
(Tandy MC 10) 
DATA var { var...] | DEF FN var (var) DEL ligne 1 DIM nom (arg, …) touche ESC EXP (exp) FLASH 
= exp [n° ligne 2...] + touche CTAL 
Fi HA cl sai HUPNTR di on 
DATA var [. var..] | DEFFNvar [{var, | DELETEn‘ligne 1, | DiMnom{arg.…) EOF# EXP (exp) VOU 
var)] = exp n° Egne 2 
Hoi Hs le ji HO 
din LE an CONRMMRET is Le 
ne y Li Li Lette 
= exp ligne 2 
DATA var [,var] | DEF FN var(var) EDIT n° ligne EXP (exp) FLASH n° couleur 
= exp EDIT (passe en Lexp] 
mode édition) 
DATA var [, var...] DEL n° ligne 1 DlMnom{arg.…) | utilisation touche EXP (exp) ROUND ON/OFF 
[,n° ligne 2] CTRL 
DATA var |, var... DELETE [FDn° | DiMnom{arg....) EOF (# n° de fichier) EXP (exp) 
disque, « nom fich » 
(efface tout fichier) 
DUO Ml ai EU ei tea NE 
= exp 
AU LE M EE Lu. JON nr 
m ligne 2 
DELETE n° ligne 1 EXP (exp) FIX (arg) 
{- [n° bgne 2]] 
‘ RTE PLU ASE CNE 5 HUMEUR 
TRS 80 DATA var |, var...] difiérentes DELETE ne ligne 1 - | DIM nom (arg. EDIT n° ligne EXP (exp) FIX (arg) 
modôles 1 et 3 formulations me ligne 2 
possibles 
DATA var {, var...] | DEF FN (var) = exp |DELETE {n° ligne 1] | DiMnom (arg,.) EXP (exp) 
[] [n°ligne 2] 
D dt ar FT a MERE hi HUM 
curseur) 
DATA var |, var...] DEF FN var EDIT {n° ligne] EXP (exp) PRINT FLASH 
{lvar,var)] = exp (sélection par 
curseur) 
quivalentes. 


| ang: argument numérique ;exp.: expression ; chai{n): chaine numérique ; adr: adresse; var: variable (nom de variable): LJ: indique une clause optionnel; {: sé 











£ 
£ 
:; 
A 




















Es Eb 





DATA var |, var... 
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CENT INSTRUCTIONS BASIC A LA LOUPE 


Instructions Basic (FOR à INPUT#) 


fl séquence 


FOR var = arg 1 TO 
arg 2 [STEP arg3] 


FRE (0) INPUT var [, var.) [GOSUB Le 
var 


exp 


FRE (exp) GET # rm fichier, var |GOSUB | n°ligne 
var 
exp 


ligne 
bel 


GOSUB 
la 


exp 
HIMEM-TOP {non | INPUT # n° fichier |GOSUB [n° ligne 
strictement var {, var... var 
équivalent) exp 


FOR var = arg { TO 
arg 2 [STEP arg3] 


FOR var = arg 1 TO 
arg 2 [STEP arg3] 


FOR var = arg 1 TO 


GET # nf fichier var | GOSUB n°/ligne 
var... 
ei HS 


INPUT # -n° fich 
ENrEQ. 


GOSUB ligne 


FREE (exp) GOSUB 6 ligne 
exp 


FOR var = arg 1 TO MEM GOSUB n° ligne 
arg 2 [STEP arg 3) 
FOR var = arg 1 TO INPUT Tenreg. GOSUB n° ligne 
arg 2 [STEP arg 3] 


FOR var = arg 1 TO GOSUB [nf igne 
arg 2 {STEP arg 3] var 
exp 
FRE (exp) GET # n° ss var| GOSUBn°ligne 
[. var... 


FOR var = arg 1 TO 
arg 2 [STEP arg 3] 


FOR var = arg 1 TO FRE (2) 
arg 2 [STEP arg 4] 
FOR var = arg 1 TO 
arg2 [STEP arg 3] 


FOR var = arg 1 TO FRE (exp) INPUT # - n° fichier, 
arg 2 [STEP arg 3] enreg |, enreg...] 


FOR var = arg 1 TO FRE (exp) GET A$ 

arg 2 [STEP arg3] GET# n, A$ 

FOR var = arg 1 TO GOSUB | n°ligne 

arg2 [STEP arg3] var 
Exp 


FOR var = arg 1 TO LOAD« »DATA |GOSUB [n°ligne 
arg 2 [STEP arg 3] 


GOSUB n° igne 


GOSUB n° ligne 


GOSUB n° ligne 


GOSUB n° ligne 





di ou en nie 


1Fexp THEN ordres | INPUT [chain] var 
(ELSE ordres) 


GOTO n° ligne 


GOTOr ligne IF exp THEN ordres 


[ELSE ordres] 


IFexp THEN ordres 
CTRL ou Print $30 | IF exp THEN ordres 
(par programme) 


CLS:modetexte | 1Fexp THENordres 
LG: mode [ELSE ordres] 
graphique 


INPUT [chain] var 
£ var] 


INPUT [chain] var 
[var] 


8 
Q 
LE 


INPUT {chain [;]] 


INKEYS (tps) var |, var...] 


kon pl 
IFexp THEN ordres var = GETC 
{aussi 1F exp GOTO 

n° ligne) 


IFexp THEN ordres INKEY$ 
[ELSE ordres] 


IFexp THEN ordres |  INKEYS (tps) 
['ELSE ordres] 


IFexp THENordres |  GETS (attente) 
[ELSE ordres) KEYS (pas 
d'attente) 


IFexp THEN ordres 


1F exp THEN ordres 
[ELSE ordres] 


GOTO n° ligne ACHRS (12) 


GOTO n° ligne INPUT # + 1 var |, 


8 
= 
S 


Fa 


£8 


BE 


GOTOn’ ligne INPUT 
[emessage »:] var 
{, var... 


GOTO n° ligne INPUT # n° fichier 


var |, var...) 


8 
Le] 


PRINT CHRS (30) 


exp 


Es 
var 


GOTOrr ligne INPUT # n° fichier 


var |, var..] 


IF exp THEN ordres 


IFexp THEN ordres | var =INKEYS 
[ELSE ordres] 
1F exp THEN ordres 
[ELSE ordres] 
IF exp THEN ordres INKEY$ INPUT [chain;] var 
[ELSE ordres] [.var..) 
IF exp THEN ordres GET var INPUT [chain:] var 
{.var..] 
IFexp THEN ordres Ho INPUT var 


1Fexp THEN ordres INKEYS 


GOTO n° ligne 


eo 
| m3 
Le] 


GOTO ligne 


GOTO r ligne PRINT « touche 


8 
o 
£ 


rhigne 
var 
exp 
CLS INPUT [chin;] var 


GOTO [rligne 
var 
exp 
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TRADUIRE ET ADAPTER VOS PROGRAMMES 


Instructions Basic (INSTR à LOAD) Be 


INT (exp) DELETE«nomfich»|  LEFTS (chain, LEN (chain) LET var = exp Ft Le nn 1 sn 
flo MC 10) longueur) 
INVERSE LEFTS (chain, LEN (chain) [LET] var=exp | LIST [n°ligne 1 [, LOAD {nom fich.} 
longueur) ne ligne 2]] (idem cassette) 
INT (exp) LEN (chain) ILET] var=exp | LIST ei Î UST«P:» LOAD «n° fichier : 
{n° ligne 2] nom fichier » 
(cassette : cf 
CLOAD) 
chain + taille = « » LEN (chain) [LET] var = exp y [ne Bgne 1 LOAD [enom 
[ncligne 2]] fichier »] 
INSTR (chain 1, INT (exp) PLOT (utilisation LEFTS (chain, LEN (chain) [LET) var=exp | LIST [n‘ligne 1 [- | CTRLBpuisLIST | LOADenomfichien! 
chain 2 [.arg]) spécifique ci. longueur) m ligne 2]] {n°ligne t -:" ligne | (idem cassette) 
manuel) 2] 
Commodore 64 INT (exp) LEFTS (chain, LEN (chain) ILET} var=exp_ | LIST {n°ligne 1 [, OPEN 1,4 LOAD «nom 
longueur) =" ligne 2]} CMD LIST | fichier» 8 (cassette 
{ne Fe neligne ciCLOAD) 
INT (exp) LEFTS (chain, LEN (chain) ILET) var=exp | LIST [nligne 1] - LOAD [enom 
longueur) {n° ligne 2] fich»] {idem 
casselte) 
Dragon 32 INT (exp) LEFTS (chain, LEN (chain) [LET] var=exp | LIST [nligne t [- | LLIST [nligne 1- 
longueur) re ligne 2] | nr ligne 2] 
autre utilisation INT (exp) LEFT $ (chain, LEN (chain) [LET] var=exp [LIST {neligne 1] [,] | LLIST {nlignet, |  LOAD [enom 
longueur) {n° ligne 2] {] {noligne 2] fich»] 
INT (exp) VOU 18 LEFTS (chain, LEN (chain) [LET] var=exp | LIST {mlignet | LLIST [nelignef, LOAD « nom 
longueur) {re ligne 2] ] n° ligne 2] fichier » (idem . 
cassette) 
INT (exp) LEFT$ (chain, LEN (chain) [LET] var=exp | LIST qe ligne 1 [- | LLIST {n° ligne 1 - LOAD 
longueur) ne ligne 2] } n° ligne 2] pe (Li Pr) 
ii HUPAn GRR kr, "1 EH FE ni k di Hi 
m ligne 
PET/CBM INT (exp} SCRATCH « nom LEFT foi LEN (chain) [LET] var=exp | LIST PE bgne 1 [,- OPEN 1, 4 LOADænom 
fichs n'ligne 2] ] CMD LIST fichier », 8 (cassette 
(1 ce | nhgne ctCLOAD) 
INT (exp) LEFTS (chain, LEN (chain) [LET] var=exp | LIST [{nligne 1] -| LISTenomprog» | LOADenomtich» 
longueur) {n° ligne 2] ] (idem cassette) 
[LET] var=exp | LIST | {mligne 1] - 
{rm ligne 2] ] 
TRS 80 CINT (exp} KILL (nom de LEFTS (chain, LEN (chain) [LET) var=exp | LIST [mligne1- | LLIST {nelignet- | LOADenom de 
modèles 1 et 3 fichier) longueur) rw ligne 2] nr ligne 2] fichier » (cassette 
cf. CLOAD) 
INT (exp) LEFTS (chain, LEN (chain) [LET] var=exp | LIST [{nligne 1] - |OPENS3,4: CMD3:| LOADænom de 
longueur) [n° ligne 2] LIST {n°ligne 1- | fichier » 8 (cassette 
m ligne 2) cf. CLOAD) 
chain (TO fin) LET var = exp LIST [n° hgne] QE ne ou 
“lé . 
imprimante) 
“ nyr fs HAUTS EEE Ah 14 ie LL 


arg. : argument numérique ; exp. : expression ; chai(n) : chaine numérique ; adr : adresse Var :| 
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CENT INSTRUCTIONS BASIC A LA LOUPE 












Instructions Basic (LOG à ON/GOSUB) 










TAC MIDS (chain, NEXT [var] ON var GOSUB 
longueur) neligne 1 
he 1) {n°ligne 2...) 
LOG (exp) MIDS$ (chain, début RENAME ancien NEXT [var] ON ERR GOTO ON var GOSUB 
[longueur] nom, NOUVEAU NOM ne ligne mligne [, n°ligne 
2. 
LOG (exp) A$(LJ) NEXT var TRAP fn°ligne ON var GOSUB 
var nr ligne 1 {, nf ligne 
exp 2] 
LN{exp) MID$ (chain, début NEW NEXT [var] ON ERROR 
(longueur) ) É 910 fn ge] 
LOG (exp) MIDS (chain, début , NEXT [var] ON var GOSUB 
[longueur] } be Pad 
RU fa Hu À Hi RE 
} 
Dragon 32 LOG (exp) MID$ (chain, début NEW NEXT [var] 
[ longueur] } 
LOG (exp) MAX (exp 1, exp 2) | MID$ (chain, début | MIN {exp t, exp 2) NEXT {var .…] ERROR n° ligne 
[longueur] ) 
LN (exp) MIDS (chain, début VAR = arg MOD NEW NEXT [var] 
{ longueur] } arg 2 
LN (exp) MIDS$ (chain, début 
[longueur] } 
LN (exp) MIDS$ (chain, début 
{LOG = décimal) [longueur] } 










où f°'P cosuB 














ON var GOSUB 
néligne t 
{, n°ligne 2...) 






















ON var GOSUB 
ré ligne 1 [, neligne 
2... 
















ON var GOSUB 
ba L ne ligne, 














ON var GOSUB 
ne ligne 1 {n° ligne 
2... 









PET/CBM LOG (exp) MIDS (chain, début 
{-longueur]} 
4 DR 
L HAE 
TRS 80 LOG (exp) 
modèles 1 et 3 


HN ÿ ‘4e 


var = arg 
MOD arg2 






MID$ (chain, début 
[longueur] } 






ONERROR GOTO 
re igne 


NAME ancien nom NEW NEXT [var] | ONERRORGOTO 
AS nouveau nom ne ligne 
LOG (exp) NEXT [var ..] ON var GOSUB 
nligne 1 
[.nligne 2... 
É. ‘2 Hi PR A et à 
“où NE et ne M M Er 


argument numériqu expression ; chai(n}: chaine numérique : adr: adresse ; var: variäble (nom de variabl) : indique une clause optionnel; |: indique des clauses équivalentes. 


ON var GOSUB 
né ligne 1 [, n° ligne 
2. 












MID$ (chain, début, 
longueur) 


ON var GOSUB 
mligne 1 Es 
2... 









MID$ (chain, début, 
longueur) 
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TRADUIRE ET ADAPTER VOS PROGRAMMES 


Instructions Basic (ON/GOTO à RANDOMIZE) D 









PRINT exp (PRINT 
TAB (exp), exp 
PRINT e, exp 


PEEK (ad) 










ON var GOIO 
mligne 1 {, 
ligne 2... 











-POS (e): position 
en ligne courante 







PLOTx, y POKE adr, octet 










ON var GOTO OPEN # n° fiche PEEXK (adt) PLOTx y POKE adr, octet RND (-arg) 
neligne 1 tre mode, code control, 
FA «nom fich » 





var = OPENIN 00 octet =? adr 
(lecture) OPENOUT 
(écriture) nom de 
fichier » 


MOVE arg 1, arg 2 
PLOT 












Padr = octet PRINT [exp] us RND % arg 
? adr { MOVE e ? adr, octet POS: position PRINT exp [, | opérateur de format RND (-arg) 
PLOT4*Y en ligne courante exp... @ 
(ct manuel: PLOT PRINT # nom fich, 
ar) enreg |,enreg...] 
PEEK (adr) POKE adr, octet 
Hall ie 






















BPUT # (arg) 
(BGET : operation 
inverse) 



















POS (arg): position | PRINT exp |. RND(TI) 
en igne courante exp... 
PRINT # m° fich 
eneg |. enreg...] 



















-CURSOR x, y 
var = CURX: 
position ligne 
courante 


PRINT exp |: 


RND (arg) 
exp... 


N.B. le signe de arg 
définit la fonction 





































OPEN mode, # PEEK (adr) PSET x, y, couleur | POKEadr,octet | POS: positionligne | .PRINT#argexp[,. | Usage spécifique 
mligne 1 [,n°ligne | -n°fich, «nom de (PRESET : fonction courante exp...] .PRINTexp | pour formatage 
2... chier» inverse) ; 





PLOT x, y [, largeur, 
hauteur], couleur 









À - PEEK (adr) DOT(x y) POKE adr,octet | POS: position Bgne | PRINT exp |, RANDOM 
courante exp. 


! exp. 
OUT port, octet PEEK (adr) POKE adr, octet j y PRINT /arg; exp 
| | ligne courante 
] 













ON var GOTO e PEEK (adr) POKE adr, octet 
nm ligne 1 {, n° ligne 
2. 


MOVE x, y PRINT T enreg |, AND (-exp) 










enreg...] 
PRINT # arg, var |, 
var] 

















ON var GOTO 
M Ltd 


POKE ad, octet AND (-arg) 




























ON var GOTO 


POS (arg) position 
ne ligne 1 ; rm ligne 
au 


en ligne courante 


PRINT exp PRINT USING RND(TI) 





PEEK (ad) 
Olect 


a kil 
técrit. fi eg 
ON var GOTO PSET POKE adr, octet PRINT USING 
m ligne 1 tte exp...] 
2 


[,exp...] 
PRINT # n° fich 
[3] 
















sa (autre signification) | PRINT exp [, RANDOMIZE arg 
nligne 1 [, n° exp. 
no ve NB. DISPLAY . 

équivalent 










































ON var GOTO 
ne ligne 1 L m ligne 
px 


OPEN «1/0» # n°, 
nom: séq. OPEN 
€R, # n°, nom, 

ongueur : direct 


.PRINT var 
PRINT # -néfich, 
enreg |, enreg...] 


PRINT USING 
format, var 


TRS 80 RANDOM 


modèles 1 et3 


POS (e): position en 
ligne courante 













OUT port, octet PEEK (adr) SET (x, y} POKE adr, octet 












ONvarGOTO | OPENexp, rm fich, POKEadr, octet |POS(): position en| .PRINT [« mess. »,] RND (-TI} 
mligne À [,n°ligne | mode, «nom fich» bgne courante [var] 
F4 .PAINT # n°, 
enreg {, enreg...] 






2. 
NAN 1 ONE Lit A Hi 
Hi ii FN MALE an jh 


p.:expression  chaï{n): chaine numérique ; ad: adresse ; var: variable (nom de variable) ; [LJ:incique une clause optionnel : |: indique des clauses équivalentes. 
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CENT INSTRUCTIONS BASIC A LA LOUPE 



























RIGI 
lo! 


je 
ngueur) 
} 


nn 


REM commentaire A chain + longueur RND arg 


READ var {, var...] | REMcommentaire RENUMBER RESTORE (exp) ON ERROR OF RETURN RIGHTS (chain, 
{début} [,pas] longueur) 


REM commentaire RESTORE RIGHTS (chain, RND {arg) RUN {ne ligne] 
longueur) ÿ 
REM commentaire RESTORE RETURN RIGHTS (chain, RND (arg) RUN 
longueur) 
REMcommentaire | RENUM [rm ligne RESTORE RETURN RIGHTS (chain, RND (arg) RUN {n° ligne] 
début, pas] longueur) 
RESTORE exp RIGHTS (chain, | RND{min, max) RUN [nligne}  |SAVE [cnamicha] 
(n° ligne) longueur) À 
REM commentaire | RENUM {n°ligne RESTORE RETURN RIGHTS (chain, | RND ou RAND {arg) RUN n° ligne SAVE «nom fichier », 
longueur) [nt de la 1 ligne) 
READ var |, var..] | REM commentaire RESTORE (arg) RESUME RETURN RIGHTS (chain, RND (arg) RÜN SAVE [FD n° drive] 
NEXT longueur) 
n° ligne 


«nom fichiers 
READ var |, var...] 


RETURN RIGHTS (chain, 
longueur) 





READ var [, var...) 


READ var |, var...) 






















{cassette cICSAVE) 

















READ var |, var... {chain}, 
a] 
ich». 





READ var |, var... 










REM commentaire | RENUM {n° ligne) 


(pas) 








READ var |, var...] 










début, pas] 











REM commentaire RESTORE RIGHTS (chain, RND (arg) RUN {nr ligne] 
longueur) 


REM commentaire RENU ligne t, RESTORE RETURN 
ligne 2, pas 






READ var |, var...) RIGHTS (chain, 


longueur) 













AND {arg) RUN (nligne] | SAVE «nom 
fichier », 8 (cassette 

cICSAVE) 

mr RUN [ncligne] | SAVExnomfich.» 





RIGHTS (chain, 
longueur) 


READ var |, var... RESTORE RETURN 
READ var |, var..] nt Jr RESTORE rl SAVEnomtfichier 
pas 
READ var [var] | REMcommentaire | RENUM n° ligne RESTORE RND (arg) RUN {n° ligne] 
début, pas 
READvar {,var..] | REMcommentaire RESTORE RETURN RIGHTS (chain, AND (arg) RUN (N° ligne) 
longueur) 

REM commentaire chain (début TO) RUN tail 
var 
exp 

REMcommentaire RETURN chain (début TO) i 


RESUME [nc ligne] RETURN 


RIGHTS (chain, 











longueur) 












SAVEunomfich.», 
8 (cassette, ci 
CSAVE) 





READvar { var...) 
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TRADUIRE ET ADAPTER VOS PROGRAMMES 


Instructions Basic (SCRN à SWAP) Le 


2 Pie 
ee "PONT Ne. ñ SGN (ep) ETC OR) STOP STRS (eo) 
(Tandy MC 10) 
{utilisé avec PRINT) 
HE D D Re EE nes Fo 
POINT (x, y) SGN (exp) SPC (arg) SOR (exp) STOP STRING$ STRS$ (arg} 
(utilisé avec PRINT) (longueur, chain) 
Commodore 64 SGN (exp) SIN (exp) SPC (arg) SOR (exp) STR$ (arg) 
{utilisé avec PRINT) 
(longueur, chain) 
Hector SGN (exp) SIN (exp) SPC (arg) SOR (exp) STR$ (arg) SWAP var 1, var 2 
(ex Victor) 

Re D Ce MO e 35 Li 
ais PR et DE 00 
avec PRINT) 

HOME nes ne NH don UHR: 
el A PA TE nl it He 

arg !, arg 2) ; 
" Mia à sl 
modèles l et 3 (longueur, chain) 
(utilisé avec PRINT) 
RAR NRA SRE BE HE 
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CENT INSTRUCTIONS BASIC A LA LOUPE 


























ue xplotation | 


_JPassageen : |AmueTRON |Visue 
Allce TAN (exp) 
(Tandy MC 10) 
TAN (exp) TEXT NOTRACE TRACE USR (param) VAL (chain) 
arg1 [,arg2] POKE 33 val 
A BYE GRAPHICS arg USR (param.) VAL (chain) POKE 82 val 
POKE 83 val 
TAN exp LINK adr VAL (chain) WAIT 1/60° DO ordre UNTIL WIDTH val 
condition 
(logique inverse) 
TAN (exp) MODE arg TRACE OFF TRACE ON USR (param.} VAL (chain) REPEAT ordre WIDTH val 
UNTIL condition 
0 TAN (exp) USR (param) VAL (chain) WAIT adr, WHILE conditions 
(ct. manuel : SYS) arg 1, arg2 ordres WEND 
TAN (exp) MODE (6) TROFF TRON VAL {chain} .WAIT [MEM] adr, 
arg |, arg2 
WAIT TIME arg 
cr vi Ps Ts a ver BRON RUE 
IHocte TAN (exp) USRadé [registre] [* VAL (chain) 
(ex Victor) |. param] 
TAN (exp) Autre utilisation TRACE OFF TRACE ON VAL (chain) PAUSE exp WHILE condition 
(secondes) WEND ordre 
D FREE a PO nl nn) RUN 
[ TAN (exp) TEXT USR (param. VAL {chain} WAÏT arg REPEAT ordre * POKE 49, val 
& param.) NB arg en 100 de UNTIL exp 
PET/CIM TAN (exp) OFF TRACE USR (param.) (cf. VAL (chain) WAIT ad, WHILE conditions 
manuel : SYS) arg 1, arg2 ordres WEND 
d MN AS A ete es fe: ÉRRn 
rare 1 RS ar VE PE AAA 
TAN (exp) TROFF USR {param.) VAL (chain) WAIT n° pot, 
masque, sélection 
TAN (exp) USR (param) VAL (chain} WAIT adr, WIDTH val 
arg {, arg 2 
TAN (exp) USR {adr) VAL (chain) PAUSE arg 
(cf. CALL) 
TAN (exp) USR {adr) VAL (chain) PAUSE arg 
(cl. CALL) 


Fenpréssion; chan haine numérique: ar esse var: variable {nom de variable): l:indique une clause opliomele indique des causes équivalentes 


POKE 32 val 
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logorrhée 


ibérez votre vocabulaire grâce à 
une nouvelle science : 


a logotronique 


et Un programme «académique » 
pour l'étudier 











La logotronique s'est impo- 
sée tout récemment comme 
une des branches mon- 
tantes des sciences du 
langage. Nous sommes heu- 
reux d'ouvrir aujourd'hui 
nos colonnes aux deux 
«pères » du Logotron, dont 
nous révélons, en exclusi- 
vité pour nos lecteurs, le 
fonctionnement. 





Professeur, (a logo romque 
c'aat ques ? 





La logotronique est l'étude 
expérimentale de la stabilité 
des formes linguistiques gé- 
nérées par ordinateur. C'est 
un sous-ensemble de la litté- 
ratronique, dont l'inventeur 
est le professeur Escarpit, 
que nos lecteurs connais- 
sent certainement. 





 _, Le thème général de la li- 
«| tératronique est la synthèse 
s du langage: poèmes, ro- 
=: mans, discours techniques, 
$ philosophiques, ou même 
à politiques (voir l'excellent 
£ ouvrage du professeur Es- 
ë carpit, paru il y a quelques 
à années : Le Littératron. 
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anni 


mais un, ha collègue puisque. 


Î 


ke we re à Myua due qua c'eat 
un CA-NU-LAR 











Plus modestement, la logotroni- 
que se propose de créer des mots 
nouveaux. Le monde actuel est en 
pleine mutation, et la demande en 
mots nouveaux se fait chaque jour 
plus vive. 

Les partisans de cette discipline 
de pointe de la linguistique pensent 
qu'il est grand temps de faire écla- 
ter le «carcan du dictionnaire ». En 
effet, ces mots du dictionnaire, il a 
bien fallu, au fil des siècles, qu'on 
les crée. Et on ne voit pas pourquoi 
nous accepterions un figement bru- 
tal de la langue, bien modestement 
enrichie par les sporadiques contri- 
butions de l'Académie. 


Le logotron est donc un vaste pro- 
gramme de synthèse lexicologique. 
Le programme donné en annexe de 
cet article {page 29) peut générer 
68 000 mots. Et ce n'est qu'un dé- 
but. Il est apparu, de fait, que nous 
Vivions à la surface d'un véritable 
gisement sémantique à peu près 
inexploité, et que nos travaux ont 
mis à jour tout récemment. 


Il reste, bien entendu, à trouver 
üun sens à ces mots produits par le 
logotron. L'équipe de l'Institut de 
Logotronique de la Faculté des Let- 
tres d'Aix-en-Provence s'y emploie, 
et on trouvera ci-après un échantil- 
lon de mots, pourrait-on dire «prêts 
à l'emploi ». 

La logotronique s'adresse à tous 
les secteurs du langage, mais, 
d'ores et déjà, un fonctionnement 
thématique est envisageable. 


Les débouchés sont considéra- 
bles et, à une époque où la France 
équilibre à grand peine sa balance 
des paiements, nous pouvons dire 
qu'étant donné l'avance prise, nous 
sommes très bien placés sur le mar- 
ché de l'exportation. 

La logotronique prendra-t-elle 
une place dans notre vie de chaque 
jour ? Grâce à l'avènement des ordi- 
nateurs individuels, nous pouvons 
répondre : OUI. Nous avions les cal- 
culateurs de poches, les ordinateurs 
programmables de poche, les ma- 
chines à traduire de poche. Dansun 
avenir que nous espérons proche, 
nous aurons dans la main des UL 
{unités de lexicosynthèse) qui, sous 
une simple pression de touche, 
fourniront toute une gamme de 
mots propres à enrichir notre dis- 
cours, notre conversation. 





Résultat 
des premières 
recherches 





Voici un bref échantillon des mots 
qui portent maintenant le label de 
l'Institut de Logotronique. 
Ambulochrone : qui a la faculté de 
pouvoir se déplacer dans le temps. 
Bibliostat : presse-livre. 
Bactériomancie : prévision de l'a- 
venir en regardant dans un micro- 
scope. 

Cryotropisme: afflux saisonnier 


dans les stations de sports d'hiver. 
Chronothérapeuthe : médecin qui 
soigne en laissant faire le temps. 
Cosmophobe : se dit de quelqu'un 
qui ne peut pas supporter l'Univers. 
Cératocéphale : cocu. 
Chronophage : personne qui vous 
prend votre temps (mangeuse de 
temps). 

Cosmogène : se dit d'une situation 
où l'Univers ne demande qu'à appa- 
raître. 

Cryptodyne: véhicule dont le 
mode de propulsion est caché (sou- 
coupe volante). 

Cosmorrhée : création divine. 
Elastolithe : variété de pierre élas- 
tique. 

Elastosaure : ancêtre du ver de 
terre. 

Episcodrome: terrain d'atterris- 
sage pour évêques. 

Hypolithe : sous-pierre. 
Hémiscope : lunettes dont un verre 
est opaque, pour ne regarder qu'à 
moitié. 

Hémigame : à moitié marié. 
Héliorragie : éruption solaire. 
Logomètre : pour discours mesu- 
rés. 

Logothérapie : psychanalyse. 
Logostase : quand on n'a plus rien à 
dire. 

Latérograde : personne marchant à 
côté de ses chaussures. 
Logotome : pour faire des phrases 
hachées. 

Micoclaste : casseur de champi- 
gnons. 

Monoscope : petit cylindre en ma- 
tériau quelconque, pour ne regarder 
qu'une seule chose à la fois. 
Mésographe : pour écrire entre les 
lignes. 

Nécrogramme : faire-part de dé- 
cès. 

Pornotropisme : goût pour la litté- 
rature porno. 
Pseudothérapeuthe : 
lyste. 

Panmanie : manie de tout. 
Panscaphe: véhicule pour aller 
n'importe où. 

Pseudopäthe : personne qui n'est 
pas vraiment malade. 

Phallostat : slip 

Paléogame : qui se reproduit de fa- 
çon désuète. 

Podoclaste : casse-pieds. 
Pangamie : tendance à épouser 
tout le monde. 
Paralléloscaphe : 
univers parallèles. 
Panphobie : horreur de tout. 
Pyrotope : cheminée. 
Spéléosophie : sagesse des pro- 
fondeurs. 

Statodynamique : étude de l'évolu- 
tion des états stationnaires. 
Théodyne : machine marchant par 
l'opération du Saint-Esprit. 
Théotope : paradis. 


psychana- 


véhicule pour 
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Organigramme 












# 
#4 


préfixe suivant 
et de sa Signification 


/ lecture du 






lecture du suffixe suivant 
ef de sa sianificahon 






nération dun nombre 
cé au hasard 















Achoix d'un péfixe au hasard 
ef d'un suffixe au hasard 










7 impression du motcréé par 
le logotron 
Aetdeses racines Sémantiques 


Dans le but de ne pas freiner les voies sur lesquelles progresse la recherche, 
l'organigramme présenté ci-dessus ne comporte effectivement pas de fin. 
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Mettez-vous 
à la 
logotronigue 


Le programme logotron est très 
simple. || est constitué de deux ta- 
bles de DATA. La première table 
contient des débuts de mots, qui 
doivent se terminer par une voyelle. 
Exemple : aero, latero, hydro, etc. 
La seconde contient les fins de 
mots. On les combine aléatoire- 
ment. Les données sont entrées par 
couples, car le programme fournira 
en même temps la signification éty- 
mologique des mots créés. Exem- 
ple : clepto, dérober…. 

Et, dans la seconde table : gêne, 
formation... 

Les DATA sont donc lues par cou- 
ples : 90 READ X$, YS 

On constitue quatre tables : PS (1) 
sont les débuts de mots. S$ (J)sont 
les fins de mots. POS (Il) et SOS (J) 
sont les significations de ces deux 
racines, empruntées au grec où au 
latin. Le programme a été écrit pour 
un Apple II. L'instruction 169 donne 
la racine du générateur de nombres 
aléatoires. 

Si on dispose d'une imprimante, 
on peut sortir immédiatement une 
suite de mots (logorrhée). Le reste 
est... littérature. 

On pourrait fabriquer un logotron 
avec simplement deux boîtes conte- 
nant des cartons, et en piquant dans 
ces boîtes au hasard. Mais c'est un 
peu lent. Seul l'ordinateur est à 
même de produire un tel déferle- 
ment de mots inconnus. 


Une science 
déjà officialisée 
par la télé 


Le premier mars 1980, nous avons 
présenté le logotron, né lors d'un 
après-midi pluvieux, à l'émission 
Temps X, sur TF1. Pour l'occasion, 
nous avions mis les mots du para- 
graphe 2 et leur signification dans 
un autre secteur de la mémoire. Le 
programme incluait aléatoirement 
ces mots dans sa production, et un 
FLASH les signalait au téléspecta- 
teur. Ceci était alors interprété 
comme une entrée dans le «champ 
sémantique» de l'appareil qui, 
après « activation de son module sé- 
mantique », « calculait »la significa- 
tion. Le tout agrémenté de clicks si- 
mulantune imprimante inexistante, 
et de gargouillis musicaux du meil- 
leur effet. 

Nous fûmes assez effrayés par le 
courrier reçu suite à cette émission. 
Si l'on excepteunelettre d'Escarpit, 
ravi de trouver là l'illustration de 
son roman picard, Le Littératron, 








a  ————.—— 
La liste du programme 


510 RD = ( - 256 * 


520 
530 
540 
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560 
1000 
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1190 


1200 
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M = 0: REM 


REM PROGRAMME LOGOTRON 
REM AUTEURS : JEAN-PIERRE PETIT ET\MARC ARONDEL 
REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET LES AUTEURS 


TEXT 
SPEED=e 50 


DIM PS(400): DIM PO$C400): 
REM ----- 


DIM S$(400): DIM S0$(400) 


INDICE PREFIXE 


READ XS,YS 
IF X$ = “FIN” THEN 310 


H=M+1 
PSCM) = XS:PO$(4) = Y$ 


GOTO 220 
REM 
NH = 0: REM N INDICE SUFFIXES 
READ XS,YS 

IF X$ = "FIN" THEN 410 

N= N +1 

SSCN) = XS:SO$S(N) = YS 

GOTO 320 

REM 


HOME : HTAB 15: VTAB 15: PRINT “#*##LOGOTRON##X#": PRINT : PRINT 
HTAB 8: PRINT “PAR J.-P. PETIT ET MARC ARONDEL": PRINT : PRINT 
: PRINT : HTAB 9: PRINT "LE NOMBRE DE MOTS EST ";M * N 
: HTAB 9: PRINT "FACULTE DES LETTRES D'AIX" 
ATAB 13: PRINT “EN PROVENCE 13100” 
mms BOUCLE D'IMPRESSION -====" 

PEEK (79) - PEEK (78)) . 
T = RND (1) * M+1:J = RND (2) * N +1 

PRINT PSCI) + S$(J): PRINT 

HTAB 5 

PRINT S0$(J);"-";POS(I) 

PRINT : GOTO 510 

REM ===" 

REM X*##A#k4X LISTE DES PREFIXES ***#%# 

DATA  ACRO,EXTREMITE, ADENO, GLANDE , AERO, AIR, AGRO, CHAMP, ALGO , DOU 
LEUR, ALLO , AUTRE , ANDRO, HOMME , ARITHMO , NOMBRE , ARRHENO , MALE 

DATA ARSENO, VIRIL,ANTE, AVANT, ANTI, CONTRE , ANTHO, FLEUR, ARTERIO , AR 
TERE , ARTHRO, ARTICULATION 

DATA ASTERO, ÉTOILE ,ASTRO, ASTRE, ASTHENO, FATIGUE , ANTHROPO , HOMME, À 
PO,A PARTIR DE, APHRO,MOUSSE, ARCHEO, ANCIEN, ARGO, BRILLANT 

DATA BACTERIO, BACTERIE, BALANO, GLANDE , BARO, PESANTEUR, BARO, PRESS 
1ON, BARY, LOURD, BATHY, PRESSION, BIBLIO, LIVRE, BIDULO , MACHIN 

DATA  BIO,VIE,BLENO, MUCUS, BLASTO, GÉRME, BOLO ,JETER, BRACHY, COUR 
T, BRADY, LENT, BRONCHO, BRONCHE , BRONTO , TONNERRE, BUTYRO, BEURRE 

DATA CACO, MAUVAIS, CARDIO,COEUR, CARYO, NOIX, CATA, SUR, CENTRO, CENT 
RE, CERCO, QUÉUE, CINEMATO, MOUVEMENT 

DATA CLEPTO, DEROBER, CLIMATO, REGION, CLINO, INCLINE, CENO, VIDE , CEPH 
ALO, TETE, CERATO, CORNE , CHEIRO, MAIN, CHELL, PINCE, CHETO, CRINIERE 

DATA CHIMIO, CHIMIE , CHLORO, JAUNE , CHRYSO, OR, CHROMO , COULEUR, CHRONO 

, TEMPS ,CO, AVEC, COELO, CREUX, COPRO, EXCREMENT , CONTRA, CONTRE 

DATA  COSMO, COSMIQUE , CRANIO, CRANE, CRISTALLO, VERRE , CRYO , FROID, CR 
PTO, CACHE, CYANO, BLEU, CYCLO, CERCLE , CYNO, CHIEN, CYPHO, CONVEXE , CYTO 

, CELLULE 

DATA  DACTYLO,DOIGT, DECI, DIXIÈME, DERMATO, PEAU, DI, DOUBLE , DTA, À 

TRAVERS, DIPLO, DOUBLE , DINO, TERRIBLE ,DECA, DIX, DEMO, PEUPLE , DEMONO, 
DIABLE , DENDRO, ARBRE 

DATA  DERMO, PEAU, DEUTERO, SECOND, DEXTRO, DROIT, DODECA, DOUZE, DOXO , 
OPINION, DRAMA , THEATRE, DROMO, COURIR , DYNAMO, ENERGIE , DYS ,DIFFICULTE 

,ECTO,A L'EXTERIEUR, ELASTO, ÉLASTIQUE 

DATA ELECTRO, ELECTRICITÉ, EMBRYO, EMBRYON, ENCEPHALO , CERVEAU , END 
0,A L'INTERIEUR, ENTERO, ENTRAILLES ,ENTOMO, INSECTE, EO, AURORE ,EPI,S 
UR,EPISTEMO, SCIENCE 

DÂTA ERGO, TRAVAIL, ESTHETICO, ETHETIQUE, EROTICO, EROTISME, ETHYMO 

VRAI, EXO, AU DEHORS,EXTRA, AU DEHORS, FANTASMO, ILLUSION, FIBRO, FIBR 
Ë, GALACTO, LAIT, GAMO, MARIAGE , GASTRO, VENTRE 

DATA GEO, TERRE, GERONTO, VLEILLARD, GENO, RACE, GLOSSO, LANGUE , GLYCO 

, SUCRE, GNOSEO, CONNAISSANCE, GONIO , ANGLE , GONO , SEMENCE , GRAMMO , MESSA 
GE , CRAPHO, ECRITURE, GRAVITO, GRAVITE, GYMNO , NU 

DATA GYNO, FEMME, GYRO, CERCLE , HALO, SEL ,HECTO, CENT, HEL1O, SOLEIL, H 
EMATO, SANG,HEMI,À MOITIE ,HEPATO, FOIE, HEPTA, SEPT, HÉTERO, AUTRE, HEX 
A,SIX 

DATA  HIERO, SACRE,HIPPO, CHEVAL, HISTO, TISSU, HODO , CHEMIN, HOLO , ENT 
IER,HOMEO, SEMBLABLE , HOMO, SEMBLABLE , HYDRO, EAU, HYGRO, HUMIDITE , HYLO 

, MATIERE 

DATA  HYMENO, MEMBRANE, HYPER, AU DELA DE,HYPHO,TISSU,HYPO, INSUFFI 
SANCE , HYSTERO, UTERUS , ICHTIO, POISSON, 1CONO, IMAGE, IDEO, IDEE, LDIO, P 
ROPRE 

DATA  INFLATO,GONFLER, INFRA, EN DESSOUS, 150, EGAL, INTRA, EN DEDANS 
,JUXTA, À COTE, KILO, MILLE, LATERO, COTE, LARYNGO , GORGE, LEPTO, MINCE, L 
EVO, GAUCHE 

DATA  LIPO,GRAISSE, LITHO, PIERRE, LOGO, DISCOURS, LOXO , OBLIQUE , MACR 
0, GRAND, MAGNETO, MAGNETISME , MASTO , MAMELLE , MEGE , GRAND ; MEGALO , GRAND 

,MELO , CHANT ,MERO, PARTIE , MESO, MILIEU 

DATA METEO, ELEVE DANS LES AIRS,META, CHANGEMENT, METRO, MESURE, MI 
CRO, PETIT, MIS0, HAIR,MNEMO, MEMOIRE , MORPHO , FORME , MYCO, CHAMPIGNON, M 
YELO , MOELLE ,MYO, MUSCLE 

DATA  MYTHO,MYTHE , NECRO, MORT, NEO, NOUVEAU, NEURO, NERF, NEMATO, FIL, 
NEVRO, NERF, N0O, ESPRIT, NOMO, LOL, NOSO, MALADIE , NYCTO, NUIT, NUCLEO , NO 
YAU, OCTO, HUIT, ODO, ROUTE , OLEO, HUILE 

DATA OLIGO,PEU NOMBREUX,OMNT, TOUT ,ONTO, L'ETRE, 00 , OEUF , OPHTALMO 

, OEIL, ORCHIDO, COUILLE , ORGANO , ORGANE , ORNITHO, OISEAU , ORO, MONTAGNE , 
ORTHO, DROIT, OSCILLO, OSCILLATION, OSMO, PULSION 


REM 


1240 


1250 


1260 


1270 


1280 


1290 


1300 


1310 


1320 


1330 
1340 
1350 


1360 


1370 


1380 


1390 
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1410 
1420 
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1440 


1450 


1460 


1470 


1480 


1490 


1500 


1519 


1520 


1530 


1540 


1550 


1560 


1570 


DATA OTO,OREILLE ,0VO, OEUF, PACHY, EPAIS , PALEO, ANCIEN, PAN, TOUT , PA 
NTO, TOUT, PARA, VOISIN DE,PAPYRO, PAPIER, PARALLELO, PARALLELE , PATA, P 
ATA, PATHO, SOUFFRANCE , PEDO, PIED, PEDO, SOL, PENTA, CINQ 

DATA PERI,AUTOUR DE ,PETRO, PIERRE, PHAGO ,MANGER, PHALLO,Z1ZI, PHAN 
ERO, VISIBLE, PHARMACO, MEDICAMENT, PHARINGO, GOSIER, PHENO, APPARAITRE 

,PHILO, AIMER, PHOBO, PEUR DE , PHONO, SON 

DATA PHOTO! LUMIERE, PHRENO, ESPRIT, PHYLO, RACE, PHYSIO, NATURE, PUYT 
0,PLANTE, PINACO, TABLEAU, PITHECO, SINGE , PLASMO, FACONNER, PLASTO , MOD 
ELAGE , PLECTO, SOUDER, PLEO, PLUS 

DATA PLEISTO, BEAUCOUP, PLESIO, PROCHE, PLEURO,A COTE, PLOUTO , RICHE 
»PLURI, PLUSIEURS, PNEUMO, POUMON, PODO, PIED, POLY, NOMBREUX, PORNO, coc 
HON, POST, APRES, PRIMO, PREMIER, PRO, DEVANT, PROTO, PREMIER, PSEUDO, FAU 
x 

DATA PSYCHO,AME, PTERO,AILE, PYO, PUS, PYRO, FEU, QUASI, PRESQUE , RADI 
O,RAYON,RETRO,EN ARRIERE, RHEO , COÛLER, RHINO, NEZ, RHIZO , RACINE , RHOM 
80, LOSANGE , SCÂTO, EXCREMENT, SCLERO, DUR, SELENO, LUNE , SEMIO, SENS, SEM 
A,SIGNE,SEMI,A DEMI 

DATA SEXO,SEXE, SCHIZO,FENDRE,SIDERO, FER, SIMILI, SEMBLABLE, SOLEN 
O,TUYAU, SOMATO, CORPS, SONO, SON, SPELEO, CAVERNE, SPHENO, COIN, SPHERO, 
SPHERE, SPLENO , RATE , SPONDYLO ,VERTEBRE, STAPHILO, GRAIN DE RAISON 

DATA STEGO,TOIT, STENO,ETROIT, STEREO, SOLIDE, STERNO, POITRINE , STO 
MATO, BOUCHE, STROBO, TOURBILLON, STYLO, COLONNE, SUB, SOUS, SULFANO, SOU 
FRE, SYL, AVEC, SYM, ENSEMBLE , SYN, AVEC 

DATA TACHY, VITESSE, TACHYTO, VITESSE, TAUTO, LE MEME, TAXO ,ORDRE,TE 
CHNO, ART, TELEO, LOIN, TERATO, MONSTRE , TETRA, QUATRE, THALASSO, MER, THE 
0,DIEU, THERMO, CHALEUR, TOMO, COUPER, TONI, TON, TOPO, LIEU, TRIBO, FROTT 
ER, TROPO, TENDANCE VERS, TYPO, CARACTERE 

DATA ULTRA,AU DELA,URANO,CIEL,URO,URINE, VICE-,A LA PLACE DE ,VI 
DEO, VOIR, VISIO, VISION, XENO , ETRANGER, XYLO, BOIS, Z00, ANIMAL, FIN, 

REM FIN DES PREFIXES 

REM *##kkkk LISTE DES SUFFIKES *##*A4#44 

DATA ACRE,EXTREMITE , AGOGIE,QUI CONDUIT, AGOGUE,QUI CONDUIT, AL 
GIE , DOULEUR 

DATA ARQUE , COMMANDER , ANTHE , FLEUR, ASTERE, ETOILE ,ASTRE ,ÉTOILE, 
ASTHENIE , FATIGUE , ANTHROPE , HOMME , ARCHIE , COMMANDER , ARGE , BRILLANT 

DATA BACTERIE,BACTERIE,BARE, PRESSION, BATHE, PROFOND, BIE, VIE, BL 
ASTE, GERME, BOLE ,JETER, CARDE , COEUR, CARPE, PAUME 

DATA CENTRIQUE,CENTRE, CERE, CORNE, CERQUE , QUEUE ,CINESE, MOUVEMENT 
, CINETIQUE, MOUVEMENT ,CLINE , PENTE, CELE , TUMEUR, CENE , VIDE ,CEPHALE,T 
ETE 

DATA  CHIMIE,CHIMIE,CHRYSE,OR, CHROME, COULEUR, CHRONE , TEMPS, CHTO 
NE,TERRE,CLASTE, BRISER, COQUE, GRAINE, COSME, COSMOS »COSHIQUE , CosHos 


DATA CRATE, FORCE, CULTEUR, CULTURE, CYCLE , CERCLE ,CYTE , CELLULE , DAC 
TYLE, DOICT, DERME, PEAU, DIDACTE, INSTRUIRE, DESE, REUNIR 

DATA DOXE,OPINION, DRAME , THEÂTRE, DROME, COURIR, DROMIE , COURSE, DON 
TE, DENT, DUC, CONDUIRE, DYNE , ENERGIE 

DATA  ECTOMIE, ABLATION, EDRE, BASE, ELASTIQUE , ELASTIQUE, ELECTRIQUE 
,ELECTRICITE, EMIE , EMBRYON, EMIE , SANG 

DATA FANTASME, ILLUSION, FUGE,FUIR, FIBRE, FIBRE, GAME , MARIAGE, GAST 
RE, VENTRE, CASTERE, VENTRE CEE, TERRE, GENESE, FORMATION, GENE , FORMATI 
oN 

DATA GLOTTE, LANGUE, GLYPUE, GRAVURE, GNATHE , MACHOIRE, GNOSE , CONNA 
1ISSANCE, GNOSE, CONNAISSANCE, GONE , ANGLE , GRADE , MARCHER , GRAMME , MESSA 
GE, GRAPHE, ECRIRE 

DATA  CRAVITATIONNEL, GRAVITE,GYNE, FEMME, GYRE, CERCLE , HELIE , SOLE 
IL, HEPATIQUE, FOIE, HYDRE, EAU, IATRE, MÉDECIN IDE , FORME 

DATA  INFLATION, GONFLEMENT, INFORMATIQUE, INFORMATIQUE, LATERE, COT 
E, LATRE, ADORATEUR, LITHE, PIERRE, LOGIE, DISCOURS SUR, LOGUE , SPECTALI 
STE DE,LYSE,COUPURE DE,MACHIE, COMBAT, MAGNETIQUE, MAGNETIQUE ,MANE, 
FOU DE,MANCIE, PREDICTION DE L'AVENIR PAR 

DATA MANIE, FOLIE DE,MATHEMATIQUE , MATHEMATIQUE , MATIQUE, MOUVEME 
NT, MATE, QUI SE MEUT,MEGALIE, GRAND, MERE, PARTIE , METRE, MESURE, MNESI 
E,MEMOIRE, MORPHE , FORME 

DATA MORPHISME, FORME, MYCTE, CHAMPIGNON, MYCOSE, CHAMPIGNON, MYTHE 
MYTHE, NAUTE, QUI NAVIGUE, NESIE, ILE, NEVROSE, NERF , NOME, LOT, NOMIE , LO 
1L,NYME, NOM, NUCLE IQUE, NOYAU 

DATA  PATHE, SOUFRANCE, PEDE, PIED, PETE,QUI VA VERS, PHAGE, MANGEUR 
DE, PHANIE, APPARITION, PHASE, APPARITION D'UNE ETOILE,PHILE,QUI AIM 
E,PHOBE,QUI DETESTE, PHONE, SON, PHORE,QUI PORTE 

DATA PHOTE, LUMIÈRE, PHRENE , ESPRIT, PHYLAXIE , GARDER, PIIYLE , RAMEAU, 
PUHYLLE, FEULLLE , PUYSE, GLANDE , PHYSIQUE, PHYSIQUE, PUYTE, PLANTE, PITHE 
QUE, SINGE, PLASME , FACONNER 

DATA  PLASTE, MODELAGE, PLASTIE , MODELAGE , PLASTIQUE ,MODELAGE, PNEE 
,RESPIRATION, POIETIQUE, ACTION DE FABRIQUER, PODE, PIED, POLE, VILLE, 
POLITIQUE, POLITIQUE 

DATA  PROPULSION, PROPULS ION, PSYCHOLOGIE, PSYCHOLOGIE, PTERE, AILE, 
RADIAL, RAYON, REACTION, REACTION, RRHEE, ECOULEMENT, SAURE, LEZARD,SCR 
IPTEUR,QUI ECRIT 

DATA SEXUEL, SEXUEL, SCAPHE, BARQUE , SCOPE , REGARDER, SOCIOLOGIE, S0C 
IOLOGIE, SOLAIRE, SOLEIL, SOMATIQUE, CORPS, SOME, CORPS, SPUERE, SPHERE, 
STAT, ARRET, STASE, ARRET, STATIQUE , ARRET 

DATA STHÉSIE, SENSIBILITE, STICHE, VERS, STIQUE , LIGNE, STOME, BOUCHE 

,STROPUE , SILLON, STYLE, COLONNE, SYNCHRASIE, AVEC, SYNTHESE, SYNTHESE 
’DATA  TAPHE, TOMBEAU, TAKE, ARRANGEMENT,, TECHNIQUE , TECHNIQUE , TELLE 
, LOIN, TERE, PORTER, THELSME, DIEU, THELIAL, MAMELON, THEQUE , ARMOIRE , TH 
ÉRAPEUTHE, QUI SOIGNE 

DATA THÈME, CHALEUR, THESE, POSER, TOME, COUPER, TONE, TON, TOPE; LIEU, 
TRON, MACHIH, TROPHISME , CROISSANCE, TROPE,QUI TEND VERS, TROPISME, TE 
NDANCE VERS 

DATA TYPE, CARACTERE, UNIVERS UNIVERS, URIE,URINE, VISION, VISION, 
VORE,QUI DEVORE, XYLE, BOIS, ZOAIRE, ANIMAL, ZOIQUE , ANIMAL, ZIGOTE , ATT 
ELLE,ON, TRUC, FIN, 
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LOGOTRON 1 


UNITE EXPERIMENTALE DE 


LEXICOSYNTHESE 


ACTIVATION DU MODULE SEMANTIQUE 


Les exemples d'exécution utilisés à TF1 


LOGOTRON 1 
UNITE EXPERIMENTALE DE 
LEXICOSYNTHESE 


PARALLELLOSCAPHE 


MOT DE 16 LETTRES 


ACTIVATION DU MODULE SEMANTIQUE 


CHRONO THERAPEUTE 


MOT DE 17 LETTRES 


CODE:SV / 41632.9998 


SIGNIFICATION CALCULEE: 


VEHICULE POUR VOYAGER DANS LES UNIVERS 


PARALLELLES 


LOGOTRON 1 


UNITE EXPERIMENTALE DE 


LEXICOSYNTHESE 


CODE:GP / 7682.74315 


SIGNIFICATION CALCULEE: 


TEMPS 


MEDECIN QUI SOIGNE EN LAISSANT FAIRE LE 


LOGOTRON 1 
UNITE EXPERIMENTALE DE 
LEXICOSYNTHESE 
ACTIVATION DU MODULE SEMANTIQUE 


ACTIVATION DU MODULE SEMANTIQUE 


CLAUSTROCOSME 


MOT DE 13 LETTRES 


CODE:PF / 8524.24982 


SIGNIFECATION CALCULEE: 
UNIVERS DU POUSSIN 


CRYPTODYNE 


MOT DE 10 LETTRES 


CODE:RW / 42672.4899 


SIGNIFICATION CALCULEE: 


VEHICULE DONT LE MODE DE PROPULSION DE- 
MEURE CACHE.EX SOUCOUPE VOLANTE 











tous les gens sont tombés dans le 
panneau, et des individus fort res- 
pectables souhaitaient avoir plus de 
détails sur la structure de ce fameux 
«module sémantique. » 


Marc concluait : « Nous croyions 
faire un canular, et nous nous re- 
trouvions avec une science sur les 
bras : la logotronique. » 


Que conclure ? Que la télévision 
est un instrument puissant. Le petit 
écran, un titre de « professeur », de 
« directeur de l'Institut de Logotroni- 
que » ; un ordinateur, et voilà des pa- 
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roles d'évangile. Nous avons re- 
noncé prudemment au canular nu- 
méro 2: «l'extrapolateur histori- 
que» (programme chargé de 
«calculer le journal du jour à partir 
de celui de la veille », pour palierune 
éventuelle panne des télex des jour- 
naux. Nous avions imaginé des ru- 
briques comme : «prévisions politi- 
ques pour la journée de demain »). 


Nous proposons donc aux lec- 
teurs de L'Ordinateur Individuel de 
nous aider à constituer, dans un 
concours permanent, un diction- 


naire de logotronique. Bien sûr, 
vous obtiendrez, pêle-mêle, des 
mots auxquels vous trouverez diffi- 
cilement une signification : sono- 
phone ou visioscope, qui seront 
alors interprétés comme étant des 
OVNI (c'est-à-dire des objets ver- 
baux non identifiés), plus rarement 
des mots existants déjà, et quelques 
trouvailles succulentes. Bonne 
pêche. 


Jean-Pierre Petit 
et Marc Arondel 











pêche 





nous avons Trouvé 
le monstre du Loch Ness | 





Outre-Manche, il est difficile de déterminer si le 5 Ou aller pêcher le monstre du Loch Ness 


sport national est : 

1 Boire du thé 

2 Etre membre d'un club 

3 Se prendre pour Sherlock Holmes 
4 En restant flegmatique 


PROGRAMME DE PECHE OÙ DU LOCH'KRESS wa 
AUTEUR M, ACKAOUY 


COPYRIGHT L'ORDINATEUR 


REM MONSTXE 
REM 
REH 
REM 
l PROFONDEUR DU LAC 
DÉFINT Z:D1H2(6,12):FO0R K#1TU3:FOR Y#ITUGYREAU 2P 
AUX, Y)mzZP:Z(7-X ,Y)aZhrZCX,13-Y)=2P:2(7-K,13-Y)=2P 
NEXT Y,X 
DATA 2,3,3,3,3,3,4,6,6,6,5,5,5,6,8,8,9,10 
CLS:PRINTCHRS (23): PRINTU454 "LE MONSTRE DU LOCH'NESS" 
PRINT: PRINT'IVOULEZ-VOUS LES REGLES. DU JEU" 
INPUT QS:1F ASC(Q$S)=79 GOSUB 2000 
CLS:PRINT FAB(13)"CARTE DU LOCH 
FOUR X=1 TO 6 : PR TAB(X#9)X ; 
FORT=1TO64 PRINT!" NEXT 
FORY=ITOI2:PRINEY; TABC5)!"I"S 
FORK=1TO6:PRINTIABCX*Y)2ZCK,V)#100; 
NEXTX:PRINT 
HEXTY 
INPUT"VOULEZ-VOUS ESSAYER DE PECHER 
IF ASC(YS)=72THEN 160 ELSE 445 
QLs 
"POSITION ALEATOIRE DU MONSTRE:CLS 
RANDOM: XL=3#(RND(2)-1)4+1:XN#XL+RND(3)-1:XMeXN+ (RND(5)-1)X,72 
YL=3*(RND(4)=1)41:YN=YL#RND(3)=1:YHSYN+(RND(5)-1)%,2 
XI=XN:YI=YN 
ZNMZ(XN,YN): ZMeRNDCZN): ZleZH:CLS 
YL=1l THENVS="NORD-NORD" 
YL=4 THENVS="CENTRE-NORD'" 
YL=7 THENVS ENTRE-SUD" 
YL=10 THENVS$S="SUD-SU0" 
XL=L THENWNS="-OUEST" 
XL=4 THENWS="-EST" 
PRINT "LE MONSTRE À ETE RÉCEMMENT VU DANS LE SECTEUR " 
NSL :UNS 
PRINT "DU LAC REPRESENTE CI-DESSOUS :" ; 
MCOORDONNEES ET PROFONDEUR" 
FOR K=192 TO 768 STÉPI1Y2 : PRINTUX,STRINGS(30,143) 
PRINTÉ128,"Y';CHR$S (130); CHR$(164);"X"; 
FÜR Y=128 TO 704 STEP64 
FÜR X=4 TO 28 STEP 8 
NEXT Y 
AT=64 : FOR Y=YL TO YL+2 : TAa=-] : 
FOR X=XL TO KL+2 : TA=TA+8 . 
Za=2(X,Y) 
PRINTÉAT,Y;:PRINTGI28#TA,X;:PRINTEAT+TA=-] ,ZA%100; : 
NEXT X : NEXT Y 
PRINTÉ896,"TAPEZ LA BARRE D'ESPACE QUAND VOUS SBREZ 
KS=INKEYS:1FKS$<>""THEN280 
FOR X=1 TO 500 : NEXT : PRINT846," MÈRE 
FOR X=1 TO 100 : NEXT : PRINTE46,VS ÿ US ; GOTO 274 
PRINTE896 , ; : 
INPUT"'A QUELLES COORDONNEES LANCEZ-VOUS LE FILET:X,Y";XF,YF 
IF XF<XL OR XF>XL+2 OR YF<YL OR YF>YL+2 
THEN PRINTE896,CHRS$(30) ; : GOTO 280 
PRINTÉ896 ,CHRS(254) ; CHRS(29);: 
INPUT'"A QUELLE PROFONDEUR VOULEZ-VOUS LE DEPLOYER";2E: 
ZF=2E/100 
Z1=2(XF,YF):1F ZF>Z1 THEN 
PRINT@960,"VOUS N'AVEZ PAS CETTE PROFONDEUR" ;:GOTO 290 
PRINT896, 
MLE MONSTRE SE DEPLACE PENDANT LA REMONTÉE DU 
TA=CXF-XL)#B8+(YF-YL)#192+262 : 
FOR Z=ZF TO 1 STEP-L : 
PRINT@TA,'"FILET:" ; PRINTÉTA+64,Z2*100 ; 
IF XF#INT(XM) AND YF#INT(YM) AND Z=ZM GOTO 10000 
FOR T=iTO4OO:NEXT T:PRINTÉTA," “ss 
PRINT@TA,Z21*100; :PRINTETA+65," ";:FORT=1TO200:NEXT 
R=RND(2)+RND(3)-1 : 
IF ABS(INT(XM)-XF)=1 AND ABS(INT(YM)-YF)=1 
AND ABS(INT(ZM)-ZF)<=2 THEN 3000 
B=RND(3) : D=INTCRND(3)-2) : ON B GOTO 330, 
XM=XM+D%,5 : IF XHC=] THEN XM=1.5 
IF XMD>=6 THEN XH=5,5 
YMSYH+D*.5 : IF YMÇ=]l THEN YM=1.5 
IF YM>®#12 THEN YM=11.5 
ZM=2ZM#D : IF ZM<=0 THEN ZM=1 
ZLaeZ(INT(XM) ,INT(YM)) : 1F ZM>ZL THEN ZM=2L 
IF XF=INT(XH)ANDYF=INT(YM)AND Z=Z2M THEN GOTO 10000 
NEXT Z : 
IF ZL<D>INTC((XM-1)/3)*3+#1 OR YLC>INT((YM-1)/3)*3+#11 GOTO 
ELSE CLS : PRINT@960, 


INDIVIDUEL ET L'AUTEUR 


S: (PKOUFONDEURS)" 
NEXT x PKENT 





LE MONSTRE";YS 





PRINTEY+X,STRINGS(2,191) 3 : 


AT=AT+192 : 


PRET."; 


FILET" à; 


340, 350 


Depuis le temps qu'ils le cherchent, ce monstre ! 
Une véritable arlésienne. Nous avons quant à nous 
résolu le problème et choisi de le laisser résider dans 
un coin de la mémoire d'un TRS 80. Le trouverez- 
vous ? Brrr li!!! 


"LE SONAR SIGNALE TOUJOURS LE MONSTRE DANS CE SECTEUR" ; 
PRINT CHR$S(28) ; GOTO 230 
PRINTÉ896,"IL ETAIT EN:" ; INT(XI) ; 
"PROFONDEUR:" ; ZI*100 ; CHR$(30) : 
PRINTé960,"ET S'EST ECHAPPE EN:" ; 
"PROFONDEUR:" ; ZM*100 ; 
PRINTÉ488,"ON RECOMMENCE?"; 
PRINTÉ230,"R A T'E 1 ! !"; 
A$=INKEYS FOR X=1 TO 500 : NEXT : 
PRINTE230," “+: FOR X=1 TO 200 : NEXT 
PRINT@230,"R A TE { ! 1" IF A$="" THEN 400 ELSE 
1F A$="N" PRINT@675,'"AU REVOIR, VOUS PARTIREZ DONC!" ;: 
PRINTÉ739,"BREDOUILLE ." ; : GOTO3000 
GOTO160 
CLS 
PRINTCHR$S(23):PRINT@274,"L A C HE U &R ";: 
PRINTE524,"T R O U I L L A R D":GOTO0450 
2000 CLS:PRINT 
‘ LA PECHE AU 
2010 PRINT:PRINT À 
LE LAC EST DIVISE EN 8 SECTEURS DEFINIS PAR'LES DIRECTIONS" 
2020 PRINT'GEOGRAPHIQUES: NORD SUD CENTRE EST OUEST" 
2030 PRINT 
"LE SECTEUR OU LE MONSTRE À ETE VU DERNIEREMENT VOUS EST " 
2040 PRINT 
"INDIQUE . VOUS DEVEZ LANCER UN FILET DANS UNE DES REGIONS DE" 
2050 PRINT 
MCE SECTEUR ET A UNE PROFONDEUR DE VOTRE CHOIX . 
2060 PRINT 
MALORS S'EVEILLE ET SE DEPLACE ALEATOIREMENT DANS LES S1IX" 
2070 PRENT 
“DIRECTIONS PAR PETITS BONDS . 
2080 PRINT 
MREMONTE . BONNE PECHE ET ACCROCHEZ VOTRE COEUR CAR IL EST" 
2085 PRINT'GROS , FORT , EFFRAYANT ET CRUEL ! ! M:PRINT 
2090 INPUT "ETES VOUS PRET " ; LS : 
IF ASC(L$)=#79 THEN RETURN ELSE GOTO 2090 
3000 FOR L=1TO10 
3010 FOR S=1 TO 6 
FOR S=1 TO 6 
FOR S=]1 TO 6 
FOR S$=1 TO 6 
NEXT L 
CLS:PRINTE462,"LE MONSTRE À RENVERSE VOTRE BATEAU" ;: 
PRINTÉY10,"LA CHALOUPE DE SAUVETAGE ARRIVE | !"; 
3030 FOR T=1TO2000:NEXT T:IF R<#2 THEN 4000 
3040 GOTO 30 
4000 CLS : FOR X#10 TO 117 SEÉT(X,5) : SET(X,42) : NEXT X 
FOR Y=5 TO 42 SET(10,Y) : SET(11,Y) : SET(116,Y) : NEXT Y 
4O10 PRINT@216,"T R O P T A R D";: 
PRINT@340,"LE MONSTRE VOUS A DEVORE";: 
PRINTÉ465,"NQUS PREVIENDRONS VOS PROCHES" ;: 
PRINT@881,"[ P.P.L."; 
4020 GOT04020 
10000 CLS 
10010 PRINTÉ75,"BRAVO VOUS AVEZ ATTRAPE :"; 
10020 FOR Y=107033 
10030 READA 
10040 IFA=0OTHENLOO80 
10050 READB:FORX=ATOB 
10060 SET(X,Y) 
10070 NEXTX:C01010030 
10080 NEXTY 
10090 PRINT#B41,"L E 
10100 FORX=1TOLOUO:NEXT 
10110 SET(105,17):SET(106,17) 
10120 FORX=1TO250:NEXT 
10130 RESET(105,17):RESET(106,17) 
10140 GoTo10100 
10150 DATA30,39,0,26,38,0,24,34,0,23,31,78,85,96,96,108,108,0, 
23,30,59,86,96,96,100,100,104,104,108,108,0,22,30,55,85,95, 
110,0,22,30,54,84,95,110,0,22,31,53,84,96,97,100,106,107, 
109,0,23,34,47,53,56,84,94,94,96,109,0,24,53,56,60 
10160 DATA63,68,70,85,90,94,96,109,0,27,53,56,60,63,68,70,76, 
79,94,96,100,102,102,105,109,0,30,43,46,76,79,83,86,94,46, 
98,100,100,104,104,106,108,0,34,49,51,76,79,83,8b,U4 07, 
108,0,37,49,51,56,59,62,65,93,98,106,0 
10170 DATA38,56,58,62,65,72,74,91,0,39,62,65,72,174,79,89,88,0, 
41,72,74,179,893,86,0,43,85,0,46,83,0,48,52,56,81,0,44,53,177s 
81,0,48,53,77,81,0,48,55,77,87,0,48,58,74,88,0 
30000 GOTO 30000 


INTCYI) ; 


INTCXM) ; INT(YM) ; 


#10 
445 
#50 


MN O NS! TIR/EN DUIEL O0 CH 'NDESS S! 


LE MONSTRE" 


VOUS GAGNEREZ SI LE FILET LE" 


PRINT&TA+S-1,CHRS(144+84S) ; : 
PRINTSTA+63+S,CHRS(192-3%S) 

PRINTSTA+S-1,CHR$S(156+6#5) ; 
PRINTATA+63+5S,CHRS(140+7*S) ; 


NEXT S : 

‘ NEXT S : 
NEXT 5 
NEXT S 





3015 
3020 


MONSTRE 
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Première parution : L'Ol n° 15 





banzai 





Dour vos luttes de classes 
un Mmorpion |[aponais 


Vous souvenez-vous du morpion ? Les Japonais 
appellent ce jeu Gomoku, mais en France qui n’a 
pas joué au moins une fois au morpion durant sa 
scolarité ? C'était bien pratique : il suffisait d’un 
crayon, d'une feuille de papier quadrillée et d’un 
adversaire... D'ailleurs, je suis sûr qu'en ce mo- 
ment même, vous avez tout ce matériel sous la 


main... 


sauf peut-être un partenaire ?! Ce n'est 


pas grave : un petit programme y pourvoiera. 


Nous nous sommes désormais 
fixés un but : écrire un programme 
qui joue au morpion (1). Soyons am- 
bitieux : il nous faut un programme 
qui joue «bien» et qui nous offre 
une résistance suffisante. Mais ne 
nous emballons pas : il faut un pro- 
gramme court et simple, les articles 
de David Levy sont passionnants, 
mais je n'ai pas eu le courage d'é- 
crire un programme complet qui 
« Voie » cinq ou six coups à l'avance. 
D'ailleurs un programme complet 
réfléchirait sans doute pendant des 
heures ! Ce serait beaucoup d'éner- 
gie dépensée pour un jeu aussi sim- 
ple. En effet, quoi de plus bête que 
d'aligner cinq croix ? 

« De plus bête » ? Voire ! Après un 
instant d'euphorie, on se rend 
compte que ce n'est pas si évident. 

“ Puisque nous sommes exigeants, 
+ nous voulons que ce programme 
5 joue toujours une cinquième croix 
7 quand quatre sont déjà posées si- 
& non comment diable arriverait-il à 
$ gagner ? Il faut aussi qu'il puisse pa- 
à rer les menaces les plus élémen- 
à taires de son adversaire, c'est-à- 
E dire compléter avant lui un aligne- 
à ment de quatre de ses pions. Etpuis 





{1} I s'agit d'une variante du morpion jouée 
sur un espace limité à 10 cases sur 10. Le go- 
moku se joue sur 19 » 19 cases. 
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il faut que le programme sache non 
seulement exécuter des menaces 
mais aussi en créer, qu'il évente 
celles de son adversaire, et, pen- 
dant que nous y sommes, qu'il 
sache bien. se placer quand rien 
d'immédiat n'est en vue. 
Comment un programme peut-il 
faire tout cela sans calculer sur plu- 
sieurs coups ? Etbienil le fera de la 


même façon qu'un humain: en re- 
gardant le jeu et en déterminant les 
bonnes cases. Ou comme dit David, 
nous allons essayer d'avoir une 
fonction d'évaluation suffisam- 
ment bonne pour qu'elle nous per- 
mette d'avoir une profondeur d'éva- 
luation très réduite, ici un demi- 
coup. 


Le but du jeu est d'aligner cinq 
croix (chaque joueur en pose une à 
son tour, etc.). Il ya exactement 192 





jà 


SE 
Pr 


EEE 


façons d'aligner cinq croix sur un 
quadrillage 10 10, c'est-à-dire 
192 quintuplets de 5 points alignés. 


Le but du jeu est de remplir un(2)de 
ces quintuplets avec ses propres 


{2} Le problème serait plus complexe dans le 
cas de la variante du morpion où la partie ne 
s'arrête pas au premier alignement de 5, 
mais au contraire continue. [l faudrait alors 
évaluer à plusieurs coups de profondeur. 


Programme : jeu du morpion 


É REA JEU DU HOKPLON SUR 10X10 CASES. 1100 C=9: Ji=4: J2=9: KimÜ: K2=50: GUSUB 1500 


5 REH AUTEUR PHILIPPE SCHNOEBELEN. 1110 C=10:J1=0: J2=9: K1=0: K2=50: GOSUB 1500 
50 REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR. 1120 C=11:J1=0: J2=5: K1=0: K2=50: COSUB 1500 
ne GoSUB 100 :REM PROLOGUE DU JEU. 1130 : 
REM -- BOUCLE DES PARTIES. 1140 REM TOUTES LES CASES SONT MAINTENANT NOTES. 
GOSUB 600 : REM PROLOGUE DE LA PARTIE. 1150 : 
Bb 40 GOSUB 700 :REM PARTIE. 1160 REM ON VA DETERMINER "LA" MEILLEURE, OU L'UNE DES MEILLEURES. 
45 PRINT “VOULEZ-VOUS JOUER UNE AUTRE PARTIE ";: GOSUB 9000 1170 S=-1 :REM MEILLEUR SCORE JUSQUE-LA. 
«50 IF R$="0" TIEN 30 1180 Q=0 :REM NOMBRE DE CASES AYANT LE SCORE S: 
[L_ 55 cosus 900 :REM EPILOGUE DÜ JEU. 1190 REM C : CASE CHOISIE. 
4 1200 FOR J=0 TO 99 
1210 :1F A(J)<>0 OR B(J)<S THEN 1230 
) KEM _ PROLOGUE DU JEU 1220 :IF B(J)>S THEN C=J: S=B(C): Q=1 
PRINT: PRINT: PRINT'MORPION 10X10" ELSE Q=Q+l: IF QXRND(R)<1 TUEN C=J 
DIM A(99),B(99),V(21),B$(5),A$(9) 1230 NEXT J 
30 REM —— 1240 PRINT" EN";C 
REM LISTE DES TABLEAUX : 1250 A(C)=5 
REM À : CONTIENT LA SITUATION DU JEU. 1260 GOSUB 8000 :REM AFFICHAGE. 
RE 8 : CONTIENT LES NOTES DES CASES. 1270 N=N+l :REM NOMBRE DE COUPS JOUES. 
REM V : CONTIENT LES NOTES DES DIFFÉRENTS 1280 IF N=100 OR (S=0 AND N>1) TIIEN F=2 
REM QUINTUPLETS, 1290 IF S>=V(20) THEN F=1 3REH LE PROGRAMME À CAGNE. 
) REM B$ CONTIENT 3 VALEURS UTILISEES POUR 1300 RETURN 
REM L'AFFICHACE. 
REM A$ LIBELLES LES LIGNES. 1500 KEM - EXPLORATION DES QUINTUPLETS 
REM -—- 1510 REM CETTE EXPLORATION SE FAIT DANS LA DIRECTION C. 
$ 1520 Cä=4*c 
REM INITIALISATIONS DU JEU. 1530 FOR J=Jl TO J2 
0 REH -— NOTES. 1540 :FOR K=K1 TO K2 STEP 10 
FOR J=0 TO 21 1550 ::A=J+K: B=A+C4: 2=0 
:VCJ)=0 :REM NOTE NULLE POUR QUINTUPLETS MIXTES » « « 1560 ::RE4 — NOTATION DU QUINTUPLET. 
NEXT J 1570 ::FOR P=A TO B STEP C:Z=Z+A(P):NEXT P 
FOR J=0 TO 4 1580 ::Q=V(Z) :REM ON NOTE LA CASE. 
SREAD V(J):REM ... CE QUI N'EST PAS LE CAS DE CEUX-CI... 1590 ::1F QU THEN FOR P=A TO B STEP C:B(P)=B(P)+Q:NEXT P 
NEXT J 1600 :NEXT K 
REM ….. 0 ..00 +000 -0000 1610 NEXT J 
) DATA +01,  -03, +5; 10, 10000 1620 RETURN 
FOR J=5 TO 20 STEP 5 
+READ V(J):REM ... NI DE CEUX-LA, 2000 REM == L'AUVERSAIRE JOUE 
NEXT J 2010 INPUT “VOTRE COUP “;A 
REM XX SX XX 2020 REM - COUP CORRECT ? 


100, 1000000 
DATA 2030 IF ACO OR A>99 OR ACINT(A) THEN 


î 


REM — CARACTÈRES POUR LES SORTIES. PRINT "UN ENTIER ENTRE O ET 99 SVP...";: GOTO 2010 


T'AS A 5 2040 LF ACA)CDO THEN PRINT “CASE DEJA OCCUPEE.-.";: GOTO 2010 
FOR J=0 TO 9 2050 : LS ù 
:READ A$(J) 2060 ACA)=1 :REM COUP CORRECT. 

ER 2070 GOSUB 8000 IREM AFFICHAGE» 
RE nuiaiok amiauharso * 2080 N=N+1 2REN NOMBRE DE COUPS JOUES. 
con à ace 2090 : 


2100 IF N=100 THEN F=2 :REM PARTIE NULLE: 
À à LEATOIRES . 
“a FOURAPE GENERPTEUR DE RONETSSCEATe 2110 IF B(A)>=V(4) THEN F=-l  :REM IL À GAGNE. 


RETURN 2120 REM #*kx4x ATTENTION : 
2130 REM * L'INSTRUCTION CI-DESSUS NE MARCHE QUE PARCE QUE : 
PE LA 2140 REM - LA VALEUR DE B() EST MISE À JOUR A CHAQUE COUP 
pl PRRGNE AE EN POSTRE 2150 REM DE L'ORDINATEUR. 
Rey - INITIALISATIONS DE LA PARTIE. 2160 REM - SI LE JOUEUR COMMENCE, B(A) VAUDRA 0, QUI EST 
FOR J=0 TO 99 2170 REM UNE VALEUR CORRECTE. 
) :A(J)=0: B(J)=0 2180 REM - SI B(A)>=V(4), L'UN DES DEUX ADVERSAIRES A 
NEXT J 2190 REM FORCEMENT GAGNE; CE NE PEUT ETRE LE PROGRAMME, 
f 2200 REM PUISQUE LA PARTIE À CONTINUE APRES SON COUP. 


N=0 :REM NOMBRE DE COUPS JOUES. se : 
F=0 :REM INDIQUE QUE LA PARTIE CONTINUE. 2220 RETURN 


REV 8000 REM = AFFICHAGE 54 
8010 PRINT: PRINT * O1 2 3 4 5 6 7 8 9" 
8020 FOR J=0 TO 9 


PRINT “VOULEZ-VOUS COMMENCER ";: GOSUB 9000 se ASE 
“O" THEN GOSUB 8000: GOTU 770 : 
tue. 8050 ::PRINT BS(A(1O#J#K)); 
GOSUB 1000 :REM L'ORDINATEUR JOUE. ss Mt 
IF FCO THEN 800 :REM FIN DE LA PARTIE. ae SPRINT 
GOSUB 2000 :REM L'ADVERSAIRE JOUE. PE PR 
IF F=0 THEN 740 :REM COUP SUIVANT. 


Fa PARTIE -- 


9000 REM = OUI OÙ NON ? = 

9010 INPUT RS: R$=LEFTS(RS,1) 

9020 IF R$<>"O" AND R$ÇD"N" THEN PRINT “OUI OU NON ”;: GOTO 9010 
9030 RETURN 


REN - LA PARTIE EST FINIE. 


520 REM - QUI À GAGNE ? 
830 IF  F=1 THEN PRINT "J'AI GAGNE EN"; 
ELSE IF F=-l THEN PRINT “VOUS AVEZ CAGNE EN"; 
| ELSE PRINT "PARTIE NULLE APRES"; 
B4O PRINT N;* COUPS" 
» B50 RETURN 


900 REM —— EPILOGUE DU JEU — 
910 PRINT "AU REVOIR" 
920 PRINT:PRINT 

. 930 RETURN 


1000 — LE PROGRAMME JOUE 

1010 : 

1020 REM — REMISE À ZERO DES NOTES — 

1030 FOR J=0 TO 99: B(J)=0: NEXT J 

1040 : 

1050 PRINT "JE JOUE..."; 

1060 REM — APPELS POUR LES QUATRE DIRECTIONS EN PRENANT 
/ 1070 REM GARDE AUX LIMITES. 

1080 : 

1090 C=1: J1=0: J2=5: K1=0: K2=90: GUSUB 15ih) 
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croix et ceci dans n'importe quel or- 
dre, ce dernier point étant très im- 
portant. 


Le programme va donc examiner 
chacun de ces 192 quintuplets et, 
suivant ce qu'ils contiennent, les 
cases restées libres se verront attri- 
buer une bonne où une mauvaise 
note, puis l'ordinateur jouera sur la 
mieux notée. Puisque plusieurs 
quintuplets différents contiennent 
une même case, celle-ci se verra at- 
tribuer la somme des notes reçues 
vis-à-vis de chacun des quintuplets. 

Par exemple si un guintuplet est 
formé de quatre croix (l'ordinateur a 
les croix, et le joueur les ronds), il 
est très intéressant de jouer sur la 
cinquième case, nous lui attribue- 
rons une note de 1000000 (|) pour 
encourager l'ordinateur à s'y placer. 
Si par contre il contient quatre 
ronds (les nôtres) il faut que l'ordi- 
nateur nous empêche de nous y 
mettre en s'y posant avant nous. Ce 
sera donc une bonne note, maiselle 
ne doit pas être meilleure que la 
précédente car sinon l'ordinateur 
pourrait oublier de gagner pour (bé- 
tement l) parer une de nos me- 
naces : adjugeons-lui 10000 « seu- 
lement ». 


Si un quintuplet contient au 
moins une croix et un rond, aucun 
des adversaires n'a le moindre es- 
poir de s'y installer victorieusement 
un jour, une note de Oenest le juste 
châtiment. || n'y a donc qu'à exami- 
ner les cas suivants : 

. 3 croix et 2 cases vides, c'est très 
bon d'y jouer car cela crée une me- 
nace, /a note sera de 100. 

. 3 ronds et 2 cases vides, il faut 
empêcher l'adversaire de nous me- 
nacer mais il ne faut pas se détour- 
ner d'objectifs plus importants : une 
note de 10. 

. et ainsi de suite en descendant. 


C'est un système très pratique : 
l'ordinateur représente dans sa 
mémoire une case vide par un O, 
un rond par un Î et une croix par un 
5. Il lui suffit d'additionner les cinq 
éléments du  quintuplet pour 
connaître son contenu à une per- 
mutation des éléments près, mais 
nous avons dit que cela n'avait 
aucune importance (3). Une table lui 
donne alors la note correspondant à 
cet arrangement, il l’ajoute à un ta- 
bleau qui contiendra la note de cha- 
que case quand tous les quintuplets 
auront été examinés. || paraît y avoir 
un défaut dans cette position (voir 
figure 1 page précédente). Il est 





(3) Notez que le contenu 5 avec 5 ronds ne 
peut se produire puisqu'alors le programme 
aurait perdu, et qu'il aurait signalé ce fait : il 
n'a donc pas à jouer. Les inquiets pourraïent 
mettre 6 pour chaque croix, à condition de 
changer le programme en conséquence [ta- 
bleau VI. 
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clair qu'en jouant en 1, l'ordinateur 
crée une double menace imparable 
et gagne, mais avec notre système, 
en examinant le quintuplet (O, 1, 2, 
3, 4), l'ordinateur attribuera la 
même note de 10000 aux cases Oet 
1, or elles ne sont absolument pas 
équivalentes car en jouant en O,on 
permet à l'adversaire de s'en tirer 
en jouant en 1. 

Regardons ceci de plus près: la 
case 0 reçoit bien la note de 1 0000, 
mais la case 1 reçoit elle 20000 
points car non seulement le quintu- 
plet (0, 1,2,3, 4) mais aussi (1, 2,3, 
4, 5) lui attribuent 10000 points. En 
fin de compte l'ordinateur jouera 
toujours en 1, et gagnera. 

C'est par ce principe que l'ordina- 
teur parvient à se placer à l'inter- 
section des alignements intéres- 
sants. Ce système fait du pro- 
gramme un adversaire très coriace, 
pas invincible, mais... difficilement 
vaincu. De plus il est très simple à 
mettre en œuvre; voyez,le pro- 
gramme est très court, la partie qui 


« réfléchit » n'occupe que 25 lignes. 


Quelques 
commentaires 
sur le programme. 


De 10 à 95, on a affaire au 
programme principal selon une ar- 
chitecture classique. 

. De 100 à 500 a phase d'initialisa- 
tion. Les possesseurs d'un TRS 80 
doivent ajouter en 115 POKE 
16553,255 et peuvent y mettre éga- 
lement DEFINT A, C-P, W-Z pour 
améliorer les performances. 

. De 600 à 690 l'initialisation de la 
partie (pour qu'on puisse en jouer 
plusieurs d'affilée). 

. De 700 à 850 la partie proprement 
dite : on détermine qui joue en pre- 
mier (720-730), et on va en 800 
quand la partie est terminée. L'affi- 
chage du résultat de la partie se fait 
en 830, suivant la valeur de F(1,-1 
ou 2). 

. De 900 à 930 l'épilogue du jeu. On 
pourrait rappeler le nombre de par- 
ties nulles et gagnées par chacun, 
mais ceci risque d'irriter les joueurs 
trop souvent battus par le pro- 
gramme. 

. À partir de 1000, le jeu du pro- 
gramme. On explore les 1 92 quintu- 
plets suivant les 4 directions possi- 
bles en 1090-1120, puis on choisit 
la meilleure case. La ligne 1220 
permet de choisir au hasard entre 
plusieurs cases ayant la même note 
mais on peut la supprimer si l'on n'a 
pas de fonction RND ou si l'on sou- 
haite accélérer le programme. 

. La partie cruciale du programme 
est /e sous-programme 1500: l'in- 
térieur de la boucle est effectué 192 
fois par coup, et les deux boucles sur 





P le sont 5 fois plus. Amateurs de 
langage machine, c'est ce sous- 
programme qu'il vous faut atta- 
quer ; attention car si AetZsonten- 
tiers, V, Zet Q ne le sont pas. 

. L’adversaire joue en 2000 à 2220, 
son coup est bien entendu vérifié, 
. Le sous-programme 9000 est le 
sous-programme OUI ou NON clas- 
sique. 

. Le sous-programme 8000 assure 
l'affichage, chacun l'adaptera à son 
ordinateur pour que ce soit joli! 

Par exemple, pour le rendre plus 
agréable que ce continuel déroule- 
ment, le jeu doit rester fixe et seule 
la case concernée doit se transfor- 
mer. || faut aussi écarter les pions 
pour y voir un peu plus clair mais 
ceci demande un travail propre à 
chaque matériel utilisé et nous lais- 
sons le soin aux utilisateurs de se 
débrouiller avec leur engin. 

Une idée pour s'approcher de la 
perfection serait d'écrire un 
deuxième programme en chan- 
geant les valeurs des lignes 330 et 
380, puis d'opposer les deux pro- 
grammes et enfin de ne retenir que 
les valeurs du vainqueur en les 
considérant comme plus proches de 
la réalité. Si vous faites des décou- 
vertes à ce propos, communiquez- 
les! Faites-nous aussi part des 
valeurs qui permettent à la machine 
de «cafouiller » le plus lamentable- 
ment, et donc à l'homme de gagner 
à tout coup : on peut ainsi avoir un 
jeu à difficulté variable. 


Et si vous désirez ensuite rendre 
votre jeu plus intéressant, plus cap- 
tivant et plus difficile, lancez-vous à 
l'attaque du Gomoku japonais qui se 
Joue sur un damier de jeu de go, soit 
un univers de 19 X 19 — 361 inter- 
sections et, petit détail, ilest interdit 
de créer un ensemble de pions 
contenant 2 lignes de 3 pions libres 
(ronds ou croix), ensemble qui per- 
met de gagner dans la plupart des 
cas au morpion français. 

Pour les fanatiques, le gomoku 
possède lui-même des variantes, 
dont la variante ninuki où l'on retire 
du jeu des pions posés : elle a été 
présentée par notre confrère « Jeux 
et Stratégie » dans son numéro 1. 


Une autre variante consiste à 
remplir cet univers 19 X 19 dans 
son entier ce qui créera plusieurs 
«morpions » pour chaque joueur, 
celui qui en a le plus étant déclaré 
gagnant. Dans ce cas, deux options 
sont possibles : soit on ne rejoue 
pas, soit on rejoue après avoir ef- 
fectué un « morpion ». 

Mais avant ces développements : 
vous avez les ronds, votre machine 
les croix ! À vous de jouer ! 


Philippe Schnoebelen 





PT 


D Cornélien 


à MOI 
compte, deux mots 





Qui ne s'est jamais assis, volontairement ou 
par hasard, un soir vers 19 heures devant un 
poste de télévision présentant l'émission «des 
chiffres et des lettres » ? Peu de gens sans doute. 
Tous ceux qui ont essayé de retrouver «le mot le 
plus long » seront donc déçus par le programme 
que nous présentons car nous n ‘avons pas en- 
core fini de mémoriser le dictionnaire. En re- 
vanche, ce programme leur permettra de lancer 
bien souvent la phrase «le compte est bon ». 


Rappelons tout d'abord le pro- 
blème. On fournit 6 nombres parmi 
#92, 10, 25,50, 75,100 et un 
nombre de 3 chiffres. Le joueur, ici 
l'ordinateur, doit reconstituer ce 
dernier nombre.par des opérations 
simples sur les 6 premiers nom- 
bres. 


Le programme BASIC n'aboutit 
que lorsqu'il trouve le compte exact, 
ce qui heureusement lui arrive dans 
là plupart des cas. Le principe est 
assez simple et montrons le sur un 
exemple : soit à trouver 723, avec 
les nombres 4, 5, 6, 7, 8, 9. 


Le programme essaie successi- 


100 rem Aie compte est bon 


uteur j.c. buisson 


copyright lL' LEAtAEeUS individuel et l'auteur 


“Les 6 nombres svp" 

nez nt2) ,nt3),n(4) ,n(5),n(6) 

“quel est Le nonbre à trouver” à: 
Â = 1 to 6 : s(i)=n(i) : 


200: i(m)2itm)+1 ; if s(i(m)220,.1 then 270 
210 jm)=jtm)+1 : 5f $Cm)=7 then 210 

220 if sCj(n))20.1 or j(m)#iCm) then 250 
230 am)=(a(nm-1)-ntitm)})/n(jCm)) 
240 atm)zta(n=-1)+n0iCm)3)/nCjCm)) 
250 if j(m) 6 then 210 

260 j{m)=0 

270 if Je 7 then 200 

280 i(m)= 

290 if n= ï then 500 


300 n=m-1 ; s(i(m))=2n(i(m)) : sCj(m))encj Cm) 





3 a(0)=x 


: if aCm)=abs(int(a(m))) then 310 
+ if atm)=abs(int(a(m))) then 320 


+ goto 250 


vement (723-4)/5; (723+4)/5 
(723—4)/6.. jusqu'à trouver un 
nombre entier : ici, l'opération s'a- 
chève pour (723+5)/7— 104. Et la 
méthode reprend: (104—0)/8— 
13; (13—4)/9= 1. Ici le processus 
s'achève, et on peut reconstituer 
723 dans l'ordre inverse : 9X1= 9: 
9+4= 13: 13X8= 104; 104+0— 
104; 104X7= 728 ; 728—5=— 723. 


L'affichage supprime les lignes 
inutiles : 
Le compte est bon 


en effet : 

9:+4= 13 

13. X 8 = 104 
104 X 7 = 728 
728 — 5 = 723 


310 s$(n)="+" 
320 s$(m)="-" 


: goto 330 


340 if i(m)=7 then 360 
350 s(1(m))=0.1 
360 if j(m)=8 then 190 


: n(8)21 : 370 s(j{m))=0.1 : goto 190 


: print : print 
: print tab(13) 


440 if atk)=1 or n(jCk))=1 
450 if atk)=0 or EME 
#60 print tab(10);a€k); 

470 print tab(10);a(k)+ n0 
#80 next k 
490 print 

500 print 
510 end 





; print tab(15) ; 
£ print tab(10) ; 


Le programme tel qu'il est conçu 
ne permet pas de faire plusieurs ad- 
ditions successives, mais ce n'est 
dans la pratique qu'un petit incon- 
vénient, et il trouve au moins 95 % 
des comptes possibles. Initialement 
conçu sur Pet, il peut fonctionner 
avec le plus pauvre des BASIC. Sur 
Pet, ce programme conclue le plus 
souvent dans les 45 secondes, mais 
il est possible qu'avec certains BA- 
SIC trop lents, le temps de réponse 
dépasse parfois la minute (il lui ar- 
rive de trouver aussi en quelques 
secondes). Dans tous les cas, ce 


programme est réellementtrès effi- 
cace et beaucoup de candidats du 
jeu télévisé pourraient renverser 
leur situation, si un ordinateur indi- 
viduel 

poche... 


pouvait tenir dans une 





Les fanatiques verront vite que 
parfois des comptes évidents 
échappent à la logique du pro- 
gramme. Il ne leur reste donc plus 
qu'à optimiser celui-ci pour dispo- 
ser du temps nécessaire à l'ajout 
des éléments logiques qui permet- 
tront de retrouver la solution dans 
tous les cas où il en existe une. 


Jean Claude Buisson 





330 if atm)#0 or atm)=1 then 410 


affichage du resultat 


tob(10) ; “Le compte est bon" 
“en effet :" : print 


then 470 
DE #80 
dk ntitk))=0 then 480 


3; Gage cit : 
NE 18802); int 00); zatk=t 


“eafd" : goto 510 
"je n'y arrive pas‘! 
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Première parution : L'OI n° 20 





1 2 DOME Or & - 


| 
4 
4 


3 


OM PEUT REUENIR AU MENU 78 


1e © D DUMP Mes mel MEN Tes ee 


DONNE de Le LL 


EPTOTENR MONT 


rot 





tournois 





l'angoisse 
de l'ordinateur 
au moment du penalty 





Avec son nom bien de chez nous, le football est 
depuis longtemps le sport national français. Les 
passionnés du ballon rond, qu'ils fréquentent les 
terrains ou les tribunes (les fauteuils de TV ?), se 
recrutent aussi parmi les « péessistes ». Quoi de 
plus déprimant alors que d'être à la merci des er- 
reurs des chroniqueurs sportifs quant à l'établis- 
sement du classement. Ilest temps de prendre no- 
tre revanche ! Le carnet du supporter en BASIC... 
ou : l’OI au service du ballon rond. 





Rappelons d'abord le règlement 
du championnat de France 1'° Divi- 
sion. Il y a N = 20 équipes en lice, 
chaque équipe rencontre deux fois 
chacune des N—1— 19 autres, 
une fois à domicile, une fois à l'ex- 
térieur. Par conséquent, le cham- 
pionnat est divisé en (N — 1) X 2 — 
N x 2 — 2 — 38 journées compor- 
tant chacune N/2 — 10 matches. 
Un match gagné rapporte 2 points, 
un match nul rapporte 1 point, un 
match perdu ne rapporte rien. Îl ya 
donc 2 points en jeu par match ; en- 
fin, le classement est fonction du 
nombre de points de chaque 
équipe : l'équipe ayant le plus de 
points est première, l'équipe en 
ayant le moins est dernière. 

En outre, si deux équipes ont le 
même nombre de points, on les dé- 
partage en fonction de leur diffé- 
rence de buts : buts marqués — buts 


Première parution : L'Ol n° 26 
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encaissés. L'équipe dont la diffé- 
rence de buts est la plus élevée est 
classée avant l'autre. 

En cas de nouvelle égalité à la dif- 
férence de buts, c'est l'équipe ayant 
la meilleure attaque, c'est-à-dire 
celle qui a marqué le plus de buts, 
qui précède l'autre au classement. 

Si encore deux équipes sont à 
égalité, elles sont déclarées ex- 
aequo (très improbable). De plus, 
l'équipe championne (celle qui oc- 
cupe la première place à l'issue de 
la dernière journée) participe l'an- 


‘née suivante à la Coupe d'Europe 


des clubs champions, tandis que 
ses deux (ou serait-ce trois mainte- 
nant ?) dauphines participent à la 
Coupe d'Europe de l'U.E.F.A. 

Les deux dernières sont relé- 
guées en 2° Division, remplacées 
par les premières de chaque groupe 
de 2-Division. L'antépénultième 


doit disputer les matches de bar- 
rage avec le vainqueur des 2€ de 
chaque groupe de 22 Division, pour 
défendre sa place en 1'° Division. 

Le programme assure le traite- 
ment des résultats de tous les 
matches, et donne le classement à 
l'issue de n'importe quelle journée. 
Il permet l'examen et la modifica- 
tion de toutes les données. 

Ce programme a été écrit sur Ap- 
ple Il avec disque, en BASIC Micro- 
soft (Applesoft). Seules seront à 
changer pour d'autres systèmes les 
routines d'entrée/sortie (sur disque 
ou sur cassette). Une instruction 
fréquemment utilisée peut se nom- 
mer différemment sur d'autres O|: 
HOME efface l'écran et renvoie le 
curseur en haut et à gauche. 

Les variables : 

Variables constantes : 

. N: lue en DATA, le nombre d'é- 
quipes en lice, 

. EQ $ (N) : tableau des noms de 
chaque équipe, lus en DATA, 

. JO $ (N X 2 — 2) : tableau des 
dates des différentes journées, lues 
sur disque, 

. LIS : contient 30 «. » pour la mise 
en page. 

Variables générales : 

. MA (N,N) est un tableau de réels 
dans lequel sont stockés les résul- 
tats de tous les matches : 

. MA(L,J) = —Rsile match n'a pas 
encore été joué (R est la journée à 
laquelle appartient le match), 





“MA(L,J)=+BLBJ,R, c'est-à-dire 
BL X 100 + BJ + R/100 avec BL le 
nombre de buts marqués par l'équi- 

e Let BJ le nombre de buts mar- 
qués par l'équipe J. On a donc deux 
chiffres par élément : BL, BJetR, 


“MA (LJ) = O s'il n'y a pas de 
match (si L= J ou si L ou J'est nul). 


CL % (N,6) est un tableau d'entiers 

{comme l'indique le signe %) conte- 

nant les différents éléments du 

classement : 

“CL % (L,O) contient l'indice dans 
Q $ de l'équipe classée Lième, 

“CL %(L,1) contient son nombre de 

points, 

“CL% (L,2) contient le nombre de 

matches qu'elle a remportés, 
“CL% (L,3) contient le nombre de 

matches où elle a fait nul, 

+ CL% (L,4) contient le nombre de 

matches qu'elle a perdus, 

“CL % (L,5) contient le nombre de 

buts qu'elle a marqués, 

“CL % (L,6) contient le nombre de 

buts qu'elle a encaissés. 


Autres variables : 


EJK :variables de boucles 

L : aussi paramètre de la rou- 
tine 1100 

BL BJ :buts de l'équipe L et J 


: aussi indice de boucles 
R : valeur d'une réponse 


R,R1 : numéro des journées sur 
lesquelles s'effectue le 
traitement (R1 pour com- 
paraison avec R) 

RS : réponse : équipe, ou date, 


ou chiffre 
R$S/R1$ : nom des équipes entrées 
au clavier pour un match 


AA ‘année, MM: mois, JJ: 
jours, MAX: nombre de 
jours dans MM (routine 
1100) 

DS : variable spécifique à l'AP- 


PLE, employée dans les en- 
trées/sorties sur disque 


Examinons maintenant /es sous- 
programmes. 


Tout le programme est organisé 
en sous-programmes plus ou moins 
imbriqués, qui peuvent être de deux 
types : 


. le type procédure, qui ne produit 
pas de résultat mais exerce une ac- 
tion sur les données ou les périphé- 
riques ; 

. le type fonction qui, en plus 
d'exercer cette action (éventuelle- 
ment), produit un résultat (numéri- 
que ou alphanumérique). 


Chacun de ces deux types peut 
demander le passage d'un ou plu- 
sieurs paramètres qui seront soit la 
« Cible » du sous-programme (passer 
L en paramètre provoquera une ac- 
tion sur l'élément L d'un tableau), 
soit des critères d'action (journée R 
pour le classement). Ces concep- 
tions, directement issues de PAS- 
CAL, ne sont utilisables que de fa- 
çon très primitive en BASIC. 





I! s'agissait des résultats 
de la journée du 22 août 
1980 bien sûr. 


Voici une description de tous les 
sous-programmes dont on remar- 
quera qu'ils sont présentés dans 
l'ordre inverse de leur appel pour 
des raisons d'optimisation. 


1} OUI ou NON: 
numéro : 1000 


2} choix ou menu : 
numéro : 1600 


3) entrée MA (NN): 
numéro : 2300 


4) entrée JO $S(N X 2 — 2): 
numéro : 2700 






.  Ceprogramme ne s'applique évi- 
demment pas qu'au championnat 
de France de football de 1" Divi- 
sion. En changeant les DATAs : 
{nombre et noms des équipes), il 
S’applique à tout tournoi appliquant 
le même type de règle. Pour un 
tournoi d'échecs, par exemple, il 
suffira de diviser le nombre de 
points par deux. 










5] sortie de MA (NN): 
numéro : 2500 


6} sortie de JO $ (N X 2 — 2): 
numéro : 2800 


7} entrée de la journée : 
numéro : 1200 


8) entrée du résultat match (L,J): 
numéro : 3200 


9) affichage «journée », R : 
numéro : 2900 


10) affiche une ligne de match: 
numéro : 3000 


11) affiche une ligne de résultats : 
numéro : 3100 


12] liste des dates 
numéros : 1400 


13) liste des équipes : 
numéro : 1500 


14) vérifie la date : 
numéro : 1100 


15] classement: 
numéro : 800 


16) initialisation du classement : 
numéro : 700 


17) traitement des résultats : 
numéro : 300 


18) tri «bulle » : 
numéro : 600 


19} inversion : 
numéro : 500 
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20) initialisation : 

numéro : 1700 

paramètres : — 

résultat : — 

appelle : 1000 (oui ou non) 
2300 [input MA (N,N)] 
2100 [input JO $ (N X 2 — 

D 

1900(1Æinitialisation)par 
GOTO 

appelé par : O (programme princi- 

pal) 

Ce sous-programme important 
initialise toutes les données. En 
particulier, il effectue un GOTO 
1900 en cas de 1'€ utilisation du 
programme. 


21} 1'e initialisation : 
numéro : 1900 
paramètres : — 
résultat : — 
appelle : 1100 (vérifie la date) 
1500 (liste des équipes) 
1200 (input journée) 
appelé par : O par l'intermédiaire de 
1700 
variables : L, J, K : boucles 
R$S,R.R1$,R1:équipes 
et leurs numéros 
BL, BJ : boucles 
Dans ce sous-programme, on 
rentre le calendrier, épreuve assez 
fastidieuse qui nécessite l'entrée au 
clavier de 380 matches. Autant dire 
que, au début au moins, le nom des 
équipes en DATA a intérêt à être 
bref. || met en drapeau MA (0,0) à 1 
de façon à ce que 10000 (fin) sauve 
le tableau. Il sauve également JO $ 
(N X 2 — 2). || comporte aussi une 
routine de vérification d'erreur 
(2120 à 2200) mais elle est très élé- 
mentaire puisqu'elle vérifie que 
chaque match appartient à une 
journée, et seulement cela. Elle ne 
vérifie pas qu'une équipe joue deux 
matches lors de la même journée 
par exemple. Les améliorations ici 
sont nombreuses. 


22) entrée des résultats : 

numéro : 5000 

paramètres : — 

résultat : — 

appelle : 1000 (oui ou non) 
2900 (print « journée », R) 
1200 (input journée) 
3100 (affiche une ligne de 
résultats) 
3200 (input 
match L, J) 
1500 (liste des équipes) 

der par : O (programme princi- 

pa 

variables : R $,R 1 $ : équipe: L,J 
leur numéro 
K : boucle 

Ce sous-programme parcourt 

tous les matches et en demande le 

résultat s'ils appartiennent à la 

journée choisie, en informant au 

préalable l'utilisateur si ce match a 

déjà un résultat (si on rentre les ré- 


résultat 
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Liste du programme 


PAUL CIE ET LE ET ELEC EEETENES 


FEXT : HUE 
GOSUB 1700: REH LAITIALLSATIUN 
O REM MENU 
HOHE 
O PRINT TAB( 8);"#* LE CARNET DU SUPPOXTER #27 
PRINT : PAINI : PRINT 
PRINT 1) EKIKER LES UERHIERS AESULTATS- 
PRINT 2) VOIR Le 
PRINT “3}) VUI« Li 
PRINT 4) VOIR LE CLASSÉAENT 
9 PALNT "5) CALENUKIER D'UME He + 
PALAT 6) FIu.r 
PHLNT 
PHINT LAS( 10);"VOTHE CHOIX 2”; 
GSUS 1600 
ox X GUSUB 5000, 6000, 7000, 3000, 11000, 10000 
To 130 
KEM TRALIE LES UONNÈES D'UN HATCI 
REM HATCU(L, J) 
HEM EQUIPE L CONTRE EQUIPE J 
Rl = FN DEC(MA(L,1) + INT CHACL,J))} * 100) 
1F R1 > K TAEN 469 
BL « FNIDEC ENT (AA(L,3) / 100)) 
BJ = FN DEC /INT (MA(L,J)) - BL 4 100) 
CUACL, 3) = CLA(L,3) + (BL = 83) 
CLA(3,9) = CLA(J,3) + (NI = BL) 
CLZ(L,2) = CLA(L,2) # (UL > 8J) 
CL3(J,2) = CLX(J,2) # (HJ > UL) 
CLA(L,4) = CLA(L,4) + (UL < 0J) 
D CL3(J,8) = CLX(J,6) + (BJ < BL) 
CLA(L,5) = CLA(L,5) + BL 
410 CLE(J,5) = CL4(3,5) + &J 
L,6) + BJ 
J,6) + 81 
CLE(L,1) L,1) + (él > « BJ) + (BL > 8j) 
CLA(S, D = CLA(J,1) + (BJ > = BL) + (5J > 8L) 








LNVERSION DÉS ELEMENTS DE CL 
FOR K = Ÿ T0 6 
Ri = CLA(J,K):CLE(I,K) = CLECI # 1,K):CLE(S + 1,K) = R1 
NEXT K 
ETUI 
REM ROUTINE LE TXL DE CLA(N,6) 
REM SELON CLX(N,1),PUIS CLEÇN, 5)»CLZ(N,6),PUIS SELON CLICN, 5) 
EUR Le N - L T0 1 STEP +1 
FOR J = L TO L 
IF CLEA(J,1) € > CLA(J + 1,1) THEN 659 
LF CLE(J,5) - CLE(J,6) = CLACI # À,5) = CLACJ # 1,6) TIEX 
1F CL2(J,5) 
IF CLX(J,1) € CLACJ + 1,1) THEN GOSUB 500 
NEXT J 
NEXT L 
RETURH 
REM INIT CLX(N,6) 
FOR L = 1 TÜ ti 
CLE(L,0) = L 
FOR J # 1 70 6 
CLE(L,3) = 0 
NEXT J 


À BLADLISSEMENT WU CLASSEMENT 
KEH VA R:NUMEKO AURNEE 
PRINT "ATTENUEZ + 
cosüa 700 
FUR L = 1 TON 
POK J = 17920 
1F MA(L,3) > 0 
NEXT J 
dExT L 
GOSU 600 








Dieu, GOSUB 300 


REN VAR JUS(L) 
REA FORMAT: JJ/MA/AAAA 
O AA = VAL ( «IGTS (J05(L),4)) 
JJ = VAL (J0$(L)) 
OHM= VAL ( M1D$ (108(L),3 + ( «lus (J05(L),3,1) = “/")}) 
ok mi > 12 TiËN JOS(L) = "?"+ RETURN 
8 AND AANT (it / 2) € >.MM / 2) Ok (MA 2 


UT JOURNEE 

| \PUT “QUELLE JU ANbE 5 
0 L = 0:JOS(L) = k«$: Si 

1H J0$(L) = "2" 

FOR J = 1 TU N 4 ! 
1249 1F JUS(J) = à$ THEN RS = STR$ (J)1J = N 4 2 
bi + es 
1260 1F JOS(L) € > “*IWEN R$ = "" 
1270 R = VAL (n$) 








= 2:J05(L) = “” 


1280 IF K€ 1 OR x > N #* 2 = 2 THEN PRINT “ERREUR A": GOSUU L400: 


1290 HETURX 

1399 REM TE DES LATES 

1400 PRENT “VOULEZ-VOUS UNE LISTE DES DATES 7"; 
1410 GSUH 1000: IF K$ = “NT THEH 1499 








FOR J=110N 42-12 

PRINT J,305(3) 

fe 1/ 22€ > lANTI(I / 22) THEN 1480 

REN ON S'ARRÈTÉ JOUS LES 22 DATES, SELON CAPACITÉ UE L'ECRAN 

PRINT “ON CONTINJE ?";2: COSUS 1009 

ÊF RG = "N" THEN J = HU À 2 « 2 

HEXT J 

RETUA: 

REN LISTÉ ybu ÆQUIPES 

PRINT "VOULEZ-VOUS LA LISTE LES ÉQUIPES 7”; 

SUB 1000: 1F KG æ “A” TIEN 1550 

FOR K = 1 TON 

PRINT EQS(K) 

HExT à 

RETURA 

REM ENTRÉE LU Ca0LX AU den 

REX UN NOMBRE LAGTRE 1 ZT 5 

(ALT 

Vau (Hs) 
1 0 





# > 6 DEx 1500 


LALCIALISATLN 


1F CLX(J,5) € CUECS # 1,5) THEN GOSUH 500 
- CLE(T,6) € LACS + 1,5) = CLA(J + 1,6) TIEX COSUL 500 


7 AND INT (MM / 2) = M4 / 43) 
- ERELS A Cm ER EE S > AA | 100 0k 


GoTu 1200 





INT (AA / 400) = AA / 400)) 


4 
bios il 
EE 1 ME 


s par journée), on demande de 
Marne on le résultat du match 
choisi (si on rentre les résultats par 
match). 

23) affichage sa résultats d'une 


journée : 
Pro - 6000 
paramètres : — 
résultat : 


appelle : 1200 (input journée) 
2900 (print «journée », R) 
3100 (affiche une ligne de 
résultats) 

appelé par : O (programme princi- 


a 
PP Dies - : L, J: boucles 


24) résultat d'un match: 
numéro : 1000 

ramètres : 
résultat : — 

appelle : 1500, 2900, 3100, 1000 
appelé par : O 

C'est le même sous-programme 
que le précédent, mais sur un match 
seulement. En 7900 se trouve un 
point d'entrée spécial de la routine 
8000 (affichage du classement), ac- 
cédé par les trois précédentes, et 
quidonne le classement à l'issue de 
la journée R. 


25}"affichage du classement : 
numéro : 8000 
paramètres : — (R journée si accès 
en 7900) 
résultat : 
appelle : 800 RCessemenn 
O0 (oui ou non) 

appelé ne O (5000, 6000 et 7000 
à travers 7900) 
variables : R : journée, L, J : boucles, 

R$ : des blancs 

jh K : le nombre de matches 

al joués 

Ce sous-programme effectue 
l'affichage et la mise en page du ta- 
bleau de classement. Il affiche une 
colonne de plus que celles conte- 
nues dans CL%: ce sont les 
matches joués dont le nombre est 
égal, pour chaque équipe, à la 
Somme des matches gagnés, nuls 
et perdus. Le classement est établi 
pour, la journée R si on utilise le 
point d'entrée 7900, et pour la der- 
nière journée si on entre en 8000. 
Cette routine ne calcule le classe- 
ment que s'il n'est pas déjà contenu 
dans CL %. On peut ainsi gagner la 
minute d'attente quand elle n'est 
pas nécessaire. Cela arrive lorsque 
la journée demandée est égale à 
celle contenue dans CL % ou quand 
CL% contient le dernier classement 
etque la journée demandée est pos- 
térieure. 


9 PURE 


1700 LIR ei und ames srsuc area ec ( 


DEF FN DECIMAL(X) = IST (X + .0D05) 
kEAD # 


J vlA EUSCS) 

9 FR L=1T0N 

O REAU EUS(L) 
Kr L 


OUS UEJA REUTAE LE CALENDRIER 275: COSUS 1900 
FUEX 1900 
"PREPAREZ LA DISQUETTE" 


) ce T''eaRt ?";: GOSUS 1900 


LE AS = A" THEN PRUST “TANT PIS." 
G0SJb 2300 


TES TAOMPES,": PRINT “VOUS ALLEZ TOUT PERONELT 
5 sus 1000 





“ THEN 1590 
PRLXT “Tar£ SRE <EQUIPE2>" 
: + 23 REH NOMBUE LE JOURNÉES 
PKINT "JOUX 





INPUT “DATE {JJ/: AU] 2":30$(L) 


70 sus 1190 


LF JO$(L) = "2" TMIEN 1960 


Q FOk J = 1 TON / 2 
UD PKINT "RENCONTRE "5J; 
) LAPUT * :";RS,R1$ 


k = dl =0 
EUR K = L TO WU 


O IF EQS(X) » RS TUEN & = K 


LF EYS(K) = «IS THEN 21 = K 
NexXT K 
IFR UL = OORR = R1 THEN PRINT “ERREUR”: GOSUB 1590: COTO 2900 


10 SIACR, A1) # = L 


FOR LL = L T2 N 
FOh 8J = 1 TON 


) IF UJ « üL THEN 2190 
1F 4A(UL,5J) = O THEN PRINT "ERMEUR POUR LE MATCH “;098(4L);",";2QS$(8J): COSUB 1200:MACBL, BJ) = + & 
D. XXE 19 


NEXI BL 


0 HA(U,0) = 1 


COSUS 2390 
RETURN 
HeA LAPUT MACN,N) 


U US$ = Cité (4): REA CTAL-U 


PXINE 0$;"OPENMATCH" 


D PRINT “CHARGEMENT LU TABLEAU UES MATCUS." 


PRINT LS; "READMATCH" 
FOR L = 1 TU 

FOI J = 1 TON 

INPUT MACL,J) 

NEXT J 

EXT L 

INPUT CLX(0,6) 

PRINT US; "CLOSEHATOH" 
RETUAN 

UEA OUTPUT vs #) 


IQ LS = Ciks 


PaluT 


O VPXLUT US$; "OPENMATON" 


PRINT "ECRITURE DES AATCHS." 
PKIAT D$; "VRITEHATEH”" 
FOU L = L TON 


j FÜK J=1I0N 


PRINT MA(L, 3) 
Xr J 


“1: GISUH 1000 


AEA IAPUT JOS(N#2-2) 


00 D$ = CiRé (4) 


VALNT 06; "OPEMJOURS" 

PRINT “CHAAGENENT LES DATES." 
PRINT Dÿ;"REAUJOURS" 

FOR L = 1 700 #2 - 2 

LNeUT J0$(L) 

NERE L 

PALNT U$;"CLOSEJOURS" 

KEFURN 

REX OUTPUT JOS(X*2-2) 


O0 US » CüURS (4) 
= Lu 


“ cr dos) 


0 PF Pit # us; “CLOSE JOURS" 


5: CUSUS 1000: IF RS = "O" THEN 2800 


PRIAT “JOURNEE *3k37 LU ":J08(); "4": PRINT 

RETURN 

REA AFFECUE UNE LIGUE DE MATCH 

PRINT LEFTS (RAS + LQSCL) + ” = * + EQS(J) + LIS,32); 
PRIAT 45; 

RETURN 

REA AFFICHE UNE LIGNE DE RESULTATS 

K = 0 

LF AAGL,J) = = R THEN Rl = R:R$ = “A JOUER” 

LE EN DECCAA(L,J) + ENT (HA(L,1))) # 100) = R THEN RE = RERS = STRS ( INT (MAL, 1) / 100) +" + 
IUT (AACL,3)) / 100 = INT € INT (MA(L,1)) / 100)) * 100)} 


O A1$ = AIGATS (” “ + STKS ) + ”- ",4) 


[o 
1F 4l = K THEN GOSUB JOU0: PRINT 
RETURN 
HE LNPUT RESULTAT MATCH (L,2) 
Hÿ = “"#RLS = "7: COSUS 3000 
LAŸUr BL, 1) 
LF 8L € O UR BJ < O THEN HA(L,J) = - A: GOIU 3240 
AA(L,3) = BL * 100 + 03 + R / 100 
IF & > CLZ(0,6) TAEN CLZ(0,6) = R 
HA(2,0) = 1 
LETURN 
ail ENIUEË VES RÉSULTATS 
K » CLE(D,6) + L: GOSUS 2900: PRINT "OK ?*;: GOSUS LOUD: LP KG = "O7 ME 5050 
PRINT “PAR JOURNEL (0) OÙ PA& MALCU (N) 2°; 
Cosys 1000 
IF R$ = “N* THEN 5170 
Gusus 1200, 


+ STRS ( FN DEC 


26) fin : 3050 | javéus 2900 
060 FOUR L= 1 TON 
numéro : 10000 5079 FOR J = 1 TO N 
3090 LF HA(Ly3) € 0 PEN RI = = HAGL,I) 
Paramètres : MA (0,0) 5109 1F HACL, 7) > D TUEN &1 = FN DECÉHACL, 3) “+ INT CHACL,3))) # 100) 


5110 LF K1 < > R THEN 5140 

5120 IF MACL,J) > O THEN PRIAT “ATTENTION! J'AI WEJA UN RESULTAT FOUX": PRIAF “CE MATCH:": COSUB 3100: BRENT : PRINT "VOULE 
Z-VOUS LE CHANGER ?";: CUSUB 1900: IF R$ = "N” THEN 5149 

5130 COSUub 3200 


appelle : 2500 [output MA (N,N)] 
Dre par : O (programme princi- 
pa 

Variables : — 
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5140 
5150 


NEXT J 

EXT L 

coTo 7900 

INPUT QUEL MATCH ?";a5,RL$ 


1F R$ = EQS(X) TUEN L = K 
IF R1S = EQS(K) TAEN J = K 
HEXT k 


IF L= J OR L# J = 0 THEN PRINT “ERREUR !": COSUB 1500: GOTO 5170 


LF MA(L,J) € O THEN K = + MA(L,J): GOSUB 2900: GOSUB 3200: GOTO 5280 
5250 2 = FN DE((HACL,J) * ENT (MA(L,J))) * 100): GOSUB 2900 


PRINT “ATTENTION! J'AI DEJA UN AESULTAT POUR": PRINT "CE MATCH." 


PRINT “VOULEZ-VOUS LE CHANGER ?“;: COSUB 1000: IF R$ = “O" THEN GOSUB 3200 


COTO 7900 

REM AFFICUAGE DES RESULTATS 
HOME 

cosus 1200 

cosus 2900 

PRINT TAG( L5); "RESULTATS :": PRINT 
FOR L = 1 TON 

FOR J=17r0onN 

IF L = J THEN 6080 

GOSu8 3100 

NEXT J 

NEXT L 


coto 7900 

EH RESULTAT D'UN MATCI 
HOME 

INPUT “QUEL MATCH 1";R$,R1$ 
L=0:J=0 

FOR K = 1 TO N 

1F R$ » EQS(K) THEN L = K 
LF RIS = EQSCK) DdEN J = k 
MEXT 


1F LA J = OORL = J TdEN PRINT “ERREUR !”": COSUB 1500: GOTO 7010 


IF HACL,J) < O TuieN R = + MA(L,J) 

IF MACL,J) > O TUEW «= FN DUAL, J) + INT (MA(L,J))) # 190) 
CosuB 2900 

PRIXT TAB( 10)"RESULTATS:": PRINT 

COSUS 3109 

REM POINT L'ENTRÉE SPECIAL LE 8000 


PRINT : PRINT "VOULEZ-VOUS LE CLASSEMENT À L'ISSUE DE": PRINT “CETTE JOURNEE 2: 


GSUS 1000 

IF R$ = "N" THEN RETURN 
IF & € CL4(0,6) THEN 8020 
REM AFFICHAGE DU CLASSEMENT 


00 HOME 
8010 K = CLX(0,6): 1F R = O THEN R = 1 


1F CLX(0,5) € > R TiEN COSUB 800 


HOUE 

PRINT * CLASSEMENT: PIS JON P rie 

PRINT 

EÜR L = 1 TO N 

IF CLE(L,1) = CLE(L = 1,1) THEN R$ = ” 7”: GOTO 8090 
A$ = STRS (L) + “.": IF L'< 10 THEN R$ = * * + RS 
PRINT RS; 


PRINT LEFTS (ÉQS(CLE(L,0)) + hs, 1); "5 
IF CLX(L,1) < 10 THEN PRINT 
PRINT CLA(L, 1); "; 


8130 K = CLZ(L,2) + CL(L, 3} + SLACL, 4): REM JOUES 





12110 
12120 
12130 
12140 


12150 HEn ATTENTIONLIEL Y AURA EGRAUR Si UN DENANUE UX ‘AATCi DEJA JOUE! 


IF K < 10 THEN PRINT ” 

PRINT K;7 "; 

FOR J = 2 mn 6 

1F CLZ(L,J) € 10 Log PRINT * “à; 
PRINT CLA(L,J);" 

NEXT J 


FKINT “On PEUT REVENIR AU MENU 7"; 
GOSUS 1090 

KETURN 

KEM OATAS 

DATA 20: REM NOMBRE D'ÉQUIPES 
DATA ANGERS, AUXÈRHE 

DATA BASTIA, BORDEAUX 

DATA LAVAL, LENS, LILLE, LY0W 

DATA HETZ, MONACO 

DATA HANCY,HANTES, NICE, NIMES 

DATA PARIS S-G 

DATA ST?ETIENNE, SOCHAUX, STRASBOURG 
LATA TOURS 

DATA VALENCIENNES 

REA FIN 


HOME 

IF HA(O,0) = 1 THEN COSUS 2500 
END 

REX CALENDRIER D'UNE EQUIPE 


HOME 

INPUT “QUELLE EQUIPE ?”;R$ 

R=0 

FOR 1 = 170 N 

1F EQS(1) = R$ THEN R = lil = à 

NEXT L 

1F K = O THEN PRINT “ERREUK": COSUB 1500: GOTO LLO1O 
HOME 

PRINT "CALENDRIER DE L'EQUIPE DE “;EQ$CR);":" 
PRINT “MATCIS ALLER: "+: PRINT 

L=R 

FOR R=1TON +1 

FOR J=1TON 


GOSUB 3100:K = LiL = J:9 = K 

GOSUS 3100:K = Lil = J:J La 

KEXT J 

NEXT &R 

PRINT : PRINT “VOULEZ-VOUS VOIR LES MATCHS RETOUR ?";: GOSUB 1000: LF AS = "+" 


NOME : PRINT "CALENDRIER DE L'ÉQUIPE UE ";EQ$(L);"1" 
PRINT "MATCUS RETOUR:": PRIXT 

J.-L 

FOR R= HN TON * 
FOR L = 1 TO N 
GOSUB 3100:K = L: 
GOSUS 3100:k = L 
MEXT L 

NEXT KR 

PRINT : PRINT "ON PEUT REVENIR AU MENU 7*;: GOSUS 1000 
RETURN 

ENU 

EM HOUTINE SPÉCIALE DE MAINTENANCE 


REN ACCES PAR RUN 12000 
ONE : GOSUS 1700 

LUPUT “MAICA ?"3RS,KL$ 
L=0:J-0 

FOR K = L TON 

IF RG = EQS(K) TILX L = K 
IF R1$ = EQS(K) TUEN J = K 
NEXT k 

18 L# J = 0 THEN PRINT "ERREUR": GOSUS L50U: GOTO 12010 
K= = MA(L,J) 
PKLAT IHATCH £. 










EQ5(J): G0SUS 2910 

GOSUE 1000: IF R$ = "N" TE 12130 
ISBUT "J9 
ACL, 3) = 
PRIT “ON HE 
GITO 10000 
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;t GOSUS 1000: 1F HG = “O0” Tu£n 12910 


+ COSUB 3100: FRINT 


TUEN 11280 


Ce sous-programme sauve le ta- 
bleau des matches sur disque si on 
l'a modifié. Il se termine par un END 
et non par RETURN. Sur l'Apple, 
après avoir sélectionné l'option fin, 
il est possible de revenir au pro- 
gramme en tapant RETURN avec 
toutes données intactes. Cela per- 
met une sauvegarde anticipée. At- 
tention, le SED refusera d'effectuer 
une nouvelle sauvegarde si un «IN- 
PUT» n'a pas été effectué entre 
temps. Cela n'est pas gênant puis- 
que l'option 1)utilise input. 


27) calendrier d'une équipe : 
numéro : 11000 


paramètres : — 

résultat : — 

appelle : 3100 (affiche une ligne de 
résultats) 


1500 (liste des équipes) 
appelé par : O (programme princi- 
pal) 
variables : L, J : boucles 

R : numéro de l'équipe, et 

boucle 

R $ : équipe et réponse 

K : échange (intermé- 

diaire) 


28) correction du calendrier : 


Ce sous-programme n'apparaît 
pas au menu. Il s'appelle par RUN 
12000. Il s'emploie après 11000 
quand on désire corriger des er- 
reurs. Îl s'agit en fait d'un pro- 
gramme dans le programme, un uti- 
litaire de maintenance. Le pro- 
gramme et ses données tiennent 
dans 16 K de mémoire vive. 

Le programme s'explique lui- 
même. Une seule remarque : dans 
l'option 1) (entrée de résultats), 
l'entrée d'un nombre négatif pour 
l'un ou l'autre des scores (re)mettra 
le match correspondant « à jouer ». 
Cela permet la récupération des er- 
reurs. Les noms des équipes et les 
scores doivent être séparés par une 
virgule ou par un retour chariot. 

L'extension la plus immédiate est 
de rajouter au nom des fichiers l'an- 
née à laquelle ils s'appliquent. On 
peut ainsi constituer une véritable 
anthologie du championnat. Mais 
cela impose de lire le nom des 
équipes dans un fichier disque, 
puisqu'elles changent toutes les 
saisons. On peut voir plus loin en 
établissant des statistiques, ce qui 
mène à l'étude des gains, fonction 
des équipes et des conditions de 
jeu. 

Enfin, l'ultime extension du pro- 
gramme consiste à lui faire établir 
des prévisions sur les résultats. On 
connaissait déjà les prévisions des 
résultats .de tiercé par ordinateur, 
alors pourquoi pas le football. 


Jean-Denis Muys 


——————— 





étude 





comment faire 
Dour empiler 


des cubes 


un problème résolu pas à pas 





IIn'est pas possible de représenter tous les jeux par un pro- 
gramme d'ordinateur. Il est cependant amusant d'essayer 
en se promenant dans les rayons des grands magasins d'i- 
maginer des algorithmes solutions des jeux exposés. Voici 
un programme qui résout un problème de cubes à empiler. 


Ce problème n'en est un que pour 
les adultes, les enfants le considé- 
rent plus facilement comme un jeu. 
On a remarqué, en effet, que les en- 
fants trouvent généralement la so- 
lution plus rapidement que les 


Hélas, ce n'est qu'un algorithme et non un modèle du che- 


min suivi par un enfant qui joue. 





Voici un jeu d'enfant ou presque. 
IMS'agit d'empiler quatre cubes: 
chaque cube possède six faces — 
enêtes-vous bien sûr ? — colorées : 
lésjeu consiste à empiler les cubes 
detelle façon que si l’on considère 
leS“quatre façades verticales for- 
mées par l'empilement (et non les 
faces au-dessus et en dessous), sur 
chaque façade, n'apparaîtront que 
des Couleurs différentes {figure 1). 


Bien sûr, si les quatre cubes sont 
entièrement rouges, il n'y aura 
aucune façon d'empiler les cubes 
quiréponde au problème, et inver- 
Sement si les 24 faces des quatre 
cubes sont de 24 couleurs diffé- 
rentes, alors n'importe quel empile- 
ment sera une solution du pro- 
blème. D'autre part, une même cou- 
leur peut apparaître plusieurs fois 





Figure 1 


adultes, en quelques minutes 
contre plusieurs heures. 


Avant de faire l'analyse et le pro- 
gramme présentés ici, j'ai désespé- 
rément essayé — sans méthode — 
de jouer aux cubes. Heureusement, 
mon ordinateur individuel est venu 
à mon secours. 


La résolution d'un tel problème 
est très typique d'une certaine 
forme de programmation : /’explo- 
ration d'arborescences. || se rap- 
proche en cela de beaucoup d'au- 
tres jeux : le solitaire, le problème 
du placement sans prises récipro- 
ques de n dames surunéchiquier de 
côté n, le problème du voyageur de 
commerce : passer par «x» villes 
une seule fois en faisant le moins 
de kilomètres possible. 


Contrairement aux échecs, il of- 
fre l'avantage de présenter une ar- 
borescence suffisamment réduite 
pour pouvoir être parcourue dans 


des temps humainement conceva- 
bles. En effet, examinons comment & 
nous pouvons empiler des cubes. S 
Un cube possède six faces ; lorsqu'il 
est posé sur une face donnée, on 
peut par quarts de tour successifs 
lui donner quatre positions diffé- 
rentes par rapport à un observateur 
fixe ou par rapport à un autre cube, 
et donc pour chacune des six faces 


dans l'empilement, à condition, évi- 
demment, que ce soit sur des fa- 
Çades différentes. Généralement, 
lès couleurs des cubes que l'on 
trouve dans le commerce sont dis- 
posées de telle façon qu'une seule 
Configuration est une solution (tout 
au,moins à une rotation ou une sy- 
Mmétrie près). D'où, recherches lon- 
ques, très longues... 





Les deux façades visibles 
de l'empilement présentent chacune 
guatre couleurs différentes. 


Première parution : L 
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les 24 positions possibles 
d'un cube 


POSITION DE DEPART 
ET POSITIONS DECALEES 
D'UN QUART DE TOUR 


ON PERHUTZ 2*ET 4 


1,6,3,5 4 PASSE EN DESSOUS 


ON PERMUTE 5 ET 6 
METTONS L AU-DESSUS 


2,6,4,5 METTONS L AU-DESSOUS 


Les faces du dessus et du dessous sont 
déterminées par la donnée 
des quatre autres faces. 


sur lesquelles on peut poser le cube, 
il y a quatre possibilités de place- 
ment. Il existe donc 24 façons diffé- 
rentes de poser un cube sur un 
autre. Toutefois, pour ce qui est du 
premier cube, celui qui est posé sur 
le sol, nous ne considérons que 6 
positions différentes : les quarts de 
tours qu'on pourrait faire faire à ce 
cube (et donc aux trois autres cubes 
empilés sur celui-ci) n'amèneront 
pas de solution nouvelle. 


Pour chacune des 6 positions 
possibles du premier cube, il y a 24 
façons d’empiler le deuxième cube, 
et pour chacune de ces 6 x 24 fa- 
çons d'empiler deux cubes, il y a 24 
façons d'empiler le troisième cube. 
De même pour le quatrième cube, 
ce qui amène à: 


6 x 24 x 24 x 24 
— 82944 façons 


d'empiler quatre cubes. Ce n'estpas 
rien | 


Il est donc à peu près certain 
qu'un enfant ne procède pas algo- 
rithmiquement pour trouver la solu- 
tion de ce jeu. (Si quelqu'un a des 
idées à ce sujet, qu'il nous les com- 
munique !l) 


Quant à nous — et avec un petit 
ordinateur —, voyons comment ex- 
plorer ce monde cubique et en ex- 
traire la ou les solutions. 


Appellons i-èmement correct un 
empilage de «i » cubes résolvant le 
problème. Par exemple un empilage 
de deux cubes tel qu'aucune façade 
verticale ne comporte de répétition 
de couleur sera dit « deuxièmement- 
correct », et la solution est un empi- 
lage quatrièmement-correct. 
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Figure 2 


Deux solutions identiques. 


Figure 3 


PAZ 


P43 


/1 


P24 P2,2 P224 P24 P22 P2,24 


P34 


P324 


NS 


P34 


P4,4.____ P4,24 


P3,24 


P413 





L'arbre représentant les 82 944 façons d'empiler les cubes. 


Il est par ailleurs évident que la 
position d'un cube donné dans la 
pile n'a aucune importance. Si un 
empilage est quatrièmement-cor- 
rect, on peut, à condition de ne pas 
modifier leurs orientations récipro- 
ques, remplacer le cube le plus bas 
par le cube le plus haut, ou toute 
autre permutation du même type ffi- 
gure 2}. C'est-à-dire que si 4-3-2-1 
est solution, 3-4-2-1 l'est aussi, de 
même 1-2-3-4, etc. 


L'idée de base est simple : empi- 
lons deux cubes de façon deuxième- 
ment-correcte (il peut y avoir plu- 
sieurs empilages deuxièmement- 
corrects) et essayons d'ajouter un 
troisième cube pour obtenir un em- 
pilage troisièmement-correct. Si 
nous y arrivons, essayons d'ajouter 
le quatrième cube. Si aucune posi- 
tion du troisième cube ne répond à 
notre attente, il nous faut changer 
la position du deuxième cube et 
prendre un autre des empilages 
deuxièmement-corrects pour es- 
sayer à nouveau d'ajouter le troi- 
sième cube. 


On peut représenter toutes les fa- 
çons d'empiler quatre cubes par un 
arbre de positions. Rechercher 


toutes les solutions consistera alors 
à parcourir successivement toutes 
les branches de cet arbre (sauf en 
cas de rencontre d'une position 
ièmement incorrecte). 


Soit Pij la j-ème position possible 
du cube «i». Dans notre problème, 
1< j<24 et 1<i<4, On a donc le 
schéma de la figure 3 qui repré- 
sente tous les empilages possibles 
de 4 cubes. Sur cette figure, nous 
avons représenté en trait gras l'em- 
pilage correspondant à la position 3 
du cube 1, 2 du cube 2, 1 du cube 3, 
et 13 du cube 4. 


Les cubes 
dans 
la mémoire 


Comment représenter tous nos 
cubes dans un ordinateur ? Appe- 
lons C1, C2, C3, C4 nos quatre 
cubes. 


1. Numérotons les faces des cubes, 
et à chaque face associons une cou- 
leur. On aura donc pour le cube Ci 
une table T$(i) à 6 éléments conte- 


Exemple d'exécution 
RENTREZ LES COULEURS DES FACES DU CUBE 
FACEL, FACE2, 


8.0 4e » FACEG 


RENTREZ LES COULEURS DES FACES DU CUBE 3 


DU,B,J,R,R,R 


RENTREZ LES COULEURS DES FACES DU CUBE 4 


MB,J,R,V,R,R 
HERCI .... 


Figure 4 


MA)1 2 93 4 5 6 





La table des couleurs des 6 faces du cube 1, 
avec l'indication de certaines couleurs. 


nant les couleurs des faces ffi- 
gure 4). 


Dans le programme, nous regrou- 
perons en fait les 4tables T$(i)dans 
un seul tableau T$(i, j) avec i com- 
pris entre 1 et 4, et j entre 1 et 6. 


2”1l" faut maintenant représenter 
une position d'un cube. Commen- 
çons par faire une croix sur la face 
quise trouve le plus proche de nous, 
etunrond sur celle du dessus (seul 
moyen de nous y retrouver). 
Levcube sera alors représenté 
comme sur la figure 5. 


Remarques : 

e Un quart de tour, c'est une per- 
mutation circulaire sur les contenus 
des quatre premières cases: par 
exemple, 1234 donne, de quart de 
touren quart de tour, 2341, 3412et 
4123. 

e Un retournement sens dessus- 
dessous, c'est une inversion des 
Contenus des cases 5 et 6 (et, par 
conséquent, 2 et 4). Ainsi, 123456 
devient 143265. 


“\Nous pouvons donc construire 
une table appelée PO dans laquelle 
Seront représentées les 24 posi- 
tions possibles d'un cube numéro- 
tées de 1 à 24. Comme nous ne 
mous préoccupons pas des faces 
dessus-dessous, ne les représen- 
tons pas dans cette table. 


SOLUTION NUMERO 


FACADE 

FACADE 

FACADE : 

FACADE ; 
SOLUTION NUMERO 


FACADE 1! 
FACADE 2 
FACADE 3 
FACADE 4 : 
SOLUTION NUMERO 
FACADE 1 
FACADE 2 
FACADE 3 
FACADE 4 : 
SOLUTION NUMERO 


FACADE 
FACADE 
FACAUE 
FACADE 





Nous allons nous servir de PO 
pour représenter les positions de 
tous les cubes : la position d'un cube 
Ci à un instant donné est la valeur 
contenue dans la variable P(i). Cette 
valeur est un indice compris entre 1 
et 24 de la table PO. 






Figure 5 


rond de la faæ 
du dessus 
























huméro de case 1 





La numérotation des cases, une fois le cube repéré 
. par la croix et le rond (ci-dessus) et le repérage 
en mémoire de la position (ci-dessous). 


2 11808 6 


opposé & l'observateur 


CUBE 2 


CUBE 2 
v 


B 
J 
R 


CUBE 2 


Par exemple, supposons le cube 1 

dans la position numéro 4. Nous 
voulons connaître la couleur de la 
face opposée à l'observateur, sa- 
chant que les couleurs ont été attri- 
buées dans T${1) comme dans la f- 
gure 4. Allons à la ligne 4 de PO. 
Nous avons décidé plus haut que la 
face opposée à l'observateur serait 
dans la troisième case. Nous voyons 
donc que ce sera la face 6 du cube 1. 
Consultons T$(1), cette face est B 
(comme blanche). 
Comment essayer toutes les posi- 
tions possibles pour un cube «i»:on 
commence avec P(i) = 1 eton es- 
saye cette position. Chaque fois 
qu'on veut une nouvelle position, on 
fait P(i) = Pi) + 1 (ou bien Pi) = P(i) 
+ 4 pour le cube 1) et si on arrive à 
P(i) = 24, c'est que l'on a essayé 
toutes les positions. 


Dire que deux cubes Ci et Cj dans 
des positions P(i) et P(j) sont deuxiè- 
mement-corrects, c'est dire que 
pour k valant 1, 2, 3 et 4: 

T${(i, (PO [P{i), k])) = 
T$(j, (PO [P(j), k])) 


d'où une procédure de vérification 
de «correction-deuxième » (empi- 
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Figure 6 


VERIF (Ci,Cj) 


TÉ (i,(PO(P()KD=TÉ(; Po(P()10) 





La procédure VERIF. 


läge deuxièmement-correct). L'or- 
ganigramme de cette procédure 
VERIF est donné en figure 6. 


Un appel de VERIF appliqué aux 
Cubes Ci et Cj donne la valeur 1 à OK 
Si Ci et Cj sont deuxièmement-cor- 
rects, et la valeur O sinon. 


L'organigramme du programme 
est représenté par les figures 7, 8, 9 


et 10. La logique d'ensemble est la 
suivante : réussir à empiler quatre 
cubes de façon quatrièmement-cor- 
recte, c'est poser le premier cube 
C1 et pour cette position, essayer 
toutes les positions troisièmement- 
correctes des cubes C2, C3, C4. De 
même embpiler les trois cubes C2, 
C3, C4, c'est empiler C2 sur C1 de 
façon deuxièmement-correcte et, 
pour cette position, essayer toutes 





les positions deuxièmement-cor- 
rectes de C3 et C4. 


On voit ainsi qu'on ne perd pas de 
temps à empiler les cubes C3 et C4 
si les cubes C2 et C1 ne forment pas 
un empilage deuxièmement-cor- 
recte. 


Le BASIC n'accepte pas la syn- 
taxe suivante : 


FOR P{I) = 1 TO J 


il a donc fallu utiliser quatre varia- 
bles intermédiaires, Q1, Q2, O3 et 
Q4. 


Le sous-programme VERIF a pour 
argument deux numéros de cubes 
qui sont transmis avant chaque ap- 
pel par l'intermédiaire des variables 
let J. 


Ne vous impatientez, pas. Les 
temps d'exécution sont importants. 
Le plus court (18 secondes) est pour 
la configuration du type : 

Cube 1:R,R,R,R,R,R 

Cube 2:R,R,R,R,R,R 

Cube 3:R,R,R,R,R,R 

Cube 4:R,R,R,R,R,R 

où tous les cubes sont de la même 
couleur, ce qui ne donne bien sûr 
aucune solution. 

On arrive souvent à des temps de 
l'ordre de 8 minutes avec des confi- 
gurations du genre : 

Cube 1:R,J, V,B,R.R 


Cube 2:B,R,J,V,R,R 
Cube 3: V,B,R,J,R,R 
Cube 4:J,V,B.R,R,R 


qui procure 17 solutions. 


Il est possible de «bricoler» le 
programme. En effet, bien que cela 
rende le programme moins facile à 
lire et plus long à écrire, on peut in- 
troduire la procédure VERIF dans le 
corps même du programme. Cela 
évite d'avoir à exécuter les instruc- 
tions du type P(i) — Q!I des lignes 
1020, 2020, 3020 et supprime la 
transmission d'arguments des 
lignes 1030, 2030, etc. Nous 
sommes arrivés à diviser les temps 
d'exécution par deux. Faites 
mieux ! ! ! La suite du jeu est bien 
sûr de trouver une configuration qui 
ne fournirait qu'une seule solution. 
C'est un programme assez simple 
mais qui tournera très, très, très 
longtemps. 


On pourrait également chercher 
avec combien de couleurs utilisées, 
au minimum et au maximum, et sui- 
vant quelles dispositions on obtient 
une seule solution. Les jeux étant ce 
qu'ils sont, nous vous laissons 
« jouer aux cubes ». 





Jean-François Poitevin 


SP 
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Figure 7 Figure 8 








Essayons 

d mp ler les 
Qubes 
C2,C3,C4 








Essayons 
d ‘empi ler 
les cibes 
Cadet C4 
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N VERIF 
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SINUEUX 





parcourez 


les méandres d'Isola 


avant de défier vos enfants! 





Que tous ceux qui en ont assez d'être battus 
par leur programme d'Othello, se réjouissent, ils 
vont pouvoir désormais être battus par leur pro- 
gramme d'isola. Qu'est-ce que Isola ? Isola est 
un jeu de réflexion qui se joue sur un échiquier 8 
*X 8 (à l'origine 6 X 8) avec 1 pion pour chacun 
des 2 joueurs. Le but du jeu est de bloquer le pion 
ennemi; pour ce faire vous déplacez à chaque 
tour votre pion (comme un roi aux échecs) sur 
une case vide et vous détruisez une case de l'é- 
chiquier de votre choix.Si votre adversaire par- 
Vient à détruire toutes les cases qui vous entou- 
rent, vous ne pouvez plus vous déplacer donc 
vous avez perdu. 





Le programme utilise la techni- 
que de la « plongée » pour détermi- 
nerla case où il doit se rendre et la 
case quil va détruire sous vos pas. 


suivante : 


Lignes 1040-1060 
ll compte pour chacune des 8 di- 


Tections toutes les cases qu'il peut de jeu. 

atteindre en 2 coups, ce qui nous 1 _ case vide. 

donne une triple boucle. Vous pou- 2 pion de l'adversaire. 
vez d'ailleurs supprimer ou modifier 3 pion de la machine. 
les lignes 2160, 2170, 2190 ainsi 5 case détruite. 

que 3070, 3080, 3100 pour n'avoir 9 bord du jeu. 


qu'une double boucle au cas où 
votre BASIC ne serait pas très per- 
formant. 

“Le programme joue ensuite la 


Lignes 1070-1110 


tions de déplacement 


case ayant reçu la meilleure note. 
La structure du programme est la 


Initialisation du tableau T terrain 


Initialisation du tableau D direc- 


Initialisation des tableaux P1 et 
P2, pondérations. 


Lignes 1120-1170 
Initialisation aléatoire des posi- 
tions des 2 joueurs. 


Lignes 2040-2090 
Recherche de la position des 
2 joueurs. 
Lignes 2120-2230 
Recherche de la case à jouer tri- 
ple boucle. A l'intérieur de chaque 
boucle on supprime les branches 
qui font marche arrière où qui tom- 
bent sur une case détruite ; au 1°! 
niveau ces directions Sont notées 
— 1 dans le tableau de cumul P2 car 
ce sont des cases interdites. 


Lignes 2260-2310 

On recherche le poste de P2 
contenant la valeur la plus élevée, 
sa position dans la table nous donne 
la direction à jouer. 


Lignes 2340-2500 

Si la direction à jouer est égale à O 
{aie aïe aïe}, on prend une direction 
au hasard et on essaye de la jouer. 
Si les 8directions sont essayées 
sans succès, on annonce la fin de la 
partie. 
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Exemple simple d'exécution 
Voulez-vous jouer en premier ? OUI 


Me stt s 6178 


| 


. 
— 
SOON D D — 


" : . 


LIEN TES 


AIRE SUN 


Parmi les 8 coups jouables, lequel 
jouez-vous ? 

Ligne puis colonne 4,3 

Quelle case détruisez-vous ? 6,5 


112,9 4 56 LT 
À HAE 0 
| #.. .# 
À: RER EE . #2 
CR. : L'HE . #3 
241: à ANNE . #4 
S ##. EAN E A à: 2e 
6 ##. ne AP: : 1 
1#. 4 ET 
1 OS ON PRE à à 2 
D FFF 9 


1914 856 78 


Parmi les 7 coups jouables, lequel 
jouez-vous ? 

Ligne puis colonne 4,4 

Quelle case détruisez-vous ? 5,5 


212145 617 8 


.# | 


JET a Ets 


BP NE DEN AU 


Parmi les 5 coups jouables, lequel 
jouez-vous ? 

Ligne puis colonne 3,5 

Quelle case détruisez-vous ? 5,7 


90 
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| 


Hit 
lMLI2 
Hi. H. 
Hi... #46 


sessssss 


12345678 


Parmi les 5 coups jouables, lequel 
jouez-vous ? 


Ligne puis colonne 4,5 

Quelle case détruisez-vous ? 2,5 
Quelques coups plus tard... 

Je sens votre fin proche !I! 


112-914 5% 0217 


le SE ST 8 


Parmi les 2 coups jouables, lequel 
jouez-vous ? 

Ligne puis colonne 1,6 

Quelle case détruisez-vous ? 8,6 
Je sens votre fin proche !!! 


LL 25304 56 TR 


PAIE 0 SD 


J'AI GAGNE EN 11 COUPS ! 


Lignes 3020-3320 

On refait les mêmes calculs afin 
de déterminer la case à supprimer 
autour de l'ennemi — voir les lignes 
2120 à 2500. Onutilise X2 et P1 au 
lieu de X3 et P2. 


Lignes 3500 à 3740 

Impression du tableau de jeu. (Il 
reste quelque chose à faire quandK 
vaut O ou 9 aux lignes 3590 et 
3720). 


Lignes 4000 à 4080 

Recherche du nombre de cases 
jouables par l'adversaire. Si ce 
nombre est égal à O on annonce la 
victoire avec force controls G :; si le 
nombre est égal à 1, on joue le coup 
à la place du joueur, sinon on luide- 
mande la case où veut jouer. 


Lignes 5110-5580 

Entrée et contrôle du coup du 
joueur, d'abord la case où il se rend 
(voisine de la case de départ et li- 
bre), puis la case qu'il détruit (cette 
case ne doit pas déjà avoir été dé- 
truite). 


On recommence alors au début 
jusqu'à ce que morts'ensuive (sic l). 


Les lignes 3000 à 3320 peuvent 
être transformées en sous-pro- 
gramme (appelé 2 fois par coup de 
la machine) en vue de supprimer les 
lignes 2120 à 2500, mais il sera 
alors plus difficile de faire évoluer la 
technique de jeu du programme. 


La partie peut durer 32 coups au 
maximum à raison de 2 cases dé- 
truites par coup, mais générale- 
ment la partie se termine au bout de 
13 à 18 coups. Si elle se termine 
avant cela veut dire que vous êtes 
soit très bon, soit très mauvais. 


Il ne vous reste plus maintenant 
qu'à essayer Isola et lorsque vous 
aurez acquis une dextérité telle que 
vous gagnez à tous les coups (n'est- 
ce pas?) pourquoi ne pas compli- 
quer un peu le jeu en définissant un 
damier de 15 cases sur 15, un dé- 
placement de 1 à 3 cases, la possi- 
bilité de détruire entre 1 et 5 cases à 
chaque tour de jeu ou toute autre 
convention. Ce jeu simple a priori 
pourra alors se révéler redoutable 
Surtout Si vous faites intervenir un 
soupçon de hasard pour corser le 
tout. 


Pierre Palacios 
ER + 2 TE 2 


Note : la mise au point de ce programme a été 
effectuée à l'A.RT.A. au centre Georges 
Pompidou. Il a été réalisé à partir de l'idée 
présentée dans le jeu {sola des Editions Ra- 
vensburger, jeu qui utilise un damier 6 X 8. 








bâtiment 





pensez-VOUSs vraiment 


casser des briques ? 





Connaissez-vous le « casse-briques » ? Il s’agit 
d'un jeu, dit jeu vidéo, car il associe des dépla- 
cements sur l'écran et une action réflexe de 
votre part. Ce n'est pas un jeu très difficile 
mais vous verrez bien vite, hélas, que vos 
enfants s'y montrent rapidement plus habiles 
que vous. Pour en avoir la démonstration, il 
vous suffit d'entrer la liste du programme en 
BASIC sur votre PET ou votre CBM. 





Le « mur de briques » n'est pas 
un jeu de réflexion, mais un jeu de 
réflexe. Ne le dédaignez pas pour 
autant : il nécessite une bonne 
coordination entre acuité visuelle 
et en l'occurrence, déplacement 
dela main. 

Le but du jeu est simple : en 
haut de l'écran est affiché un mur 
de briques, en bas une raquette, 
Style raquette de tennis, stylisée 
bien sûr ! Entre les deux, une petite 
balle se déplace. Chaque fois 
qu'elle heurte une brique, la brique 
disparaît et vous marquez un 
point. Vers le bas, soit vous la 
touchez avec votre raquette et elle 
fépart vers le haut, soit vous la 
manquez et vous avez perdu. 

Vous avez perdu pour cette 
balle tout au plus car une nouvelle 
apparaît mais vous avez tout de 
même perdu du temps et c'est 
contre le temps que vous jouez : il 
Vous faut détruire toutes les bri- 
ques en un minimum de temps. 

Le déplacement de la raquette 
s'effectue à l’aide des touches 4 
= pour aller à gauche -— et 6 pour 
aller à droite. 

Comme le jeu ne se veut pas 
trop difficile, vous ne sortirez par le 
bas de l'écran qu'une fois sur 
deux. 

|| vous sera possible d'utiliser où 
de supprimer le son (les listes du 


programme et des variables vous 
indiquent les lignes et variables 
affectées). 

L'adaptation à un PET ou à un 
CBM consiste simplement à modi- 
fier la variable KB (voir les lignes 
1300 et 1310) KB = 515 corres- 
pond à un PET et KB = 151 à un 
CBM. 

Ce programme utilise bien sûr 
divers POKESs et il est propre aux 
appareils PET /CBM. 

Il ne vous reste plus qu'à vous 
entraîner et à essayer de défier 








* VARIABLES * 
: REGISTRE 59464 : SON 
BRIQUE 
ESPACE 
BORD LATERAL 
INVERSE ESPACE 
BORD BAS 
SORTIE BALLE 
BALLE 
= DEPART ECRAN 
515 / CBM =151 
MEMOIRE DU CODE DE TOUCHE PRESSEE 
: VARIABLE INTERMEDIAIRE 
: NOMBRE DE BALLES 
: COMPTEUR DE BOUCLE 
: DIRECTION BALLE 
: POSITION DE LA RAQUETTE 
: 160 = RAQUETTE 
: POSITION DE LA BALLE 
: SIGNE DIRECTION BALLE 
: POSITION BALLE A EFFACER 
: CARACTERE ENTRE PAR LE CLAVIER 
: POINTS JOUEUR 
: VARIABLE INTERMEDIAIRE 
: SON SORTIE BALLE 
: SON SORTIE BALLE 
: DRAPEAU 
: DRAPEAU 


ensuite vos enfants. Peut-être 
n'est-ce pas perdu d'avance ? 


Jean-Pierre Jaborska 
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READY 
10R 
20 R 
30R 
40 R 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


52 


Liste du programme 


EM * MUR DE BRIQUES * 

EM * MIS AU POINT SUR CBM (3,9 K) * 

EM AUTEUR : JEAN PIERRE JABORSKA 

EM. COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 


GOSUB 1000 
GOSUB 1200 
GOSUB 1400 
GOSUB 1800 
GOSUB 1900 
1F FF=1 THEN 210 
IF TT=1 THEN GOSUB 2300: REM UNE BALLE EN MOINS 

IF NB<20 AND PI<100 THEN 130 
GOSUB 2500 : REM FIN DE PARTIE 
GOSUB 9000 : REM TEST SUR LA REPONSE 

1F A$="0" THEN RUN 110 
POKE SN,0 
POKE SN+2,0 
POKE SN+3,0 
PRINT" 
CLR 
END 

REMA de he he he ee ee ee ee re eee ee ee ee ee re ee A 
REM PRESENTATION DU JEU 

PRINT" 

PRINT:PRINT 

PRINT'MUR DE BRIQUES" 

PRINT: PRINT 

PRINT'BUT DU JEU : DETRUIRE TOUTES LES" 

PRINT" BRIQUES,A L'AIDE D'UNE BALLE," 
PRINT" EN UN MINIMUM DE TEMPS." 

PRINT: PRINT 

PRINT"POUR CELA.ON DEPLACE UNE RAQUETTE" 

PRINT"EN APPUYANT SUR LES TOUCHES :" 

PRINT" 4 POUR ALLER À GAUCHE" 

PRINT" 6 POUR ALLER A DROITE" 

PRINT: PRINT"POUR ARRETER LE JEU EN COURS" 
PRINT"DE PARTIE APPUYER SUR F" 

PRINT: PRINT" ETES-VOUS PRET"; 

GOSUB 9000 

1F A$="N" THEN 1020 

RETURN 

REM=-- — 
REM INITIALISATION 

PRINT!" 

POKE 59468 ,12 

SN=59464: POKE SN+3,16: REM REGISTRE SON PAR CB2 
POKE SN+2,81: POKE SN,0 

MU=208: SP=32: REM CARACTERE 

A0=214: B0=224 

FO=192: BA=81 

S0=111: C1=160 

SC=32768: KB=515 

IF PEEK(50000) THEN KB=151: REM TYPE DE PET 
RETURN 

REM = 
REM PREPARE L'ECRAN 

REM--———— 

FOR A=0 TO 79 

POKE SC+A,B0 


: REM MODE D'EMPLOI 
: REM INITIALISATION 
: REM DESSIN DU TERRAIN 
: REM BALLE 
: REM DEBUT DU JEU 


RENE 

FOR A=2 TO 23 

POKE SC+(A%40) , A0 
POKE SC+(Ax40)+39 ,A0 
NEXT A 

RENE eme 
REMSSRE=E2=S 

FOR A=0 TO 39 

POKE SC+(24%40)+A,F0 


FOR A=3 TO 36 STEP 2 

POKE SC+(24*40)+A,S0 

NEXT A 

RER. 
PRINT""TAB(S5)'""POINTS"TAB(20)"BALLE NO : 1" 
NB=1 

REMÉenereses 

FOR B=2 TO 5 

RERESE == 
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1680 
1690 
1700 
1710 


| 1720 


50 REM# 3% he ve eee ee ee 2 A A A AR A A | 





1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 


| 2110 


2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2300 
2310 
2320 
2330 
2340 


| 2350 


2360 
2370 
2380 


| 2390 


2400 
2410 
2420 
2430 


| 2440 
| 2450 


2460 
2470 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
9000 
9010 
9020 
9030 
9040 
9050 


FOR A=1 TO 38 

POKE SC+(40%B)+A,MU 
NEXT A 

REM-- 

NEXT 8 

REM=-——————— 

D1=40 

TI$="000000" 
PA=33627: REM DEPART RAQUETTE 
POKE PA+#1,CI 
POKE PA,CI: POKE PA+1,CI 
RETURN 

REM--—— nn 
REM DEPART DE LA BALLE 

PO=33268 

SI=1: POKE PO,BA 

RETURN 

REM—— 
REM LE JEU COMMENCE ICI 

A=PEEK (KB) 

IF A>42 OR A<41 THEN 2010 

PV=PA 

PA=PA+CA=42)#2= (A=41) #2 

IF PA<33610 THEN PA=33610: PV=PA+2 

1F PA>33643 THEN PA=33643: PV=PA-2 

POKE PV+2,SP: POKE PV+1,5P 

POKE PV,SP: POKE PA,CI 

POKE PA+1,CI: POKE PA+2,CI 

GEMAS- 2 L 

IF A$="F" THEN FF=1: GOTO 2220 

A=PEEK (PO+DI) 

IF A=80 OR A=CI OR A=FO THEN SI=-SI: GOTO 2160 
IF A=AO THEN POKE SN,140 

IF A<>MU THEN 2100 

SI=-SI: POKE (PO+DI),SP 

DI=ABS(DI): POKE SN,99 

PI=PI#1: PRINT'";PI 

IF A<>AO AND A<>MU THEN 2120 
DI=DI+((40+D1)#2#(DI<0))—C(40=DI) #2k(D1>0)) 

IF A=SO THEN TT=1: GOTO 2220 

1F PEEK(PO)=BA THEN POKE PO,SP 

PO=PO+DI: POKE PO,BA 

POKE SN,0: GOTO 1920 

RA=INTCCRND (1) #21+10) ) /10 

DI=(38+RA)*SI 

IF A=FO THEN POKE SN,65 

IF A=BO THEN POKE SN,140 

IF A=CI THEN POKE SN,220 

GOTO 1920 

RETURN 


SORTIE BALLE 
POKE PO,SP: POKE PO+DI,BA 
POKE SN+2,51 
RM 
FOR T=1 TO 3 
RM 
FOR JK=324T TO BUT STEP 3 
POKE SN,JK 
NEXT JK 
REM———-- 
NEXT T 
REN- 
POKE SN+2,81:POKE SN,0 
NB=NB+1 
PRINT!"!";SPC (30) NB 
POKE PO+DI,S0 
RETURN 
REM=— 
REM FIN DE PARTIE 
PRINT"'PARTIE TERMINEE APRES" 
PRINT""MIDS (TI$,3,2) ; 
PRINT" MINUTES":RIGHTS(TIS,2);" SECONDES" 
PRINTVOULEZ VOUS JOUER UNE" 
PRINT'AUTRE PARTIE "; 
RETURN 
REM————— 
REM TEST SUR LA REPONSE 
INPUT A$ 
AS=LEFTS(AS,1) 
IF A$<>"0" AND AS<>"N'" THEN 9020 
RETURN 


READY. 





con. … 36 


D DD ble 








Connaissez-vous les jeux de rôles ? Non. Alors 
suivez-nous à travers la lande aride versle château 
du Dragon. Attention, le voyage sera périlleux, 
semé d'embüûches et surtout peuplé de divers 
monstres qui assurément ne vous veulent pas du 
bien. Avancez lentement, j'entends déjà les pre- 
miers hurlements qui montent de la nuit... 








Depuis des siècles, le château 
était proche du village. Depuis des 
siecles, le trésor était dans le châ- 
teau. Et depuis des siècles, des 
hommes inconscients tentaient de 
ravir le trésor 

Il y avait eu Hérold, héritier d'un 
roi Elfe, armé de son arc flam- 
boyant. || avait péri de la main d'un 
Troll. Il y avait eu Lovin, vaillant 
combattant des guerres elfiques. Sa 
hache n'avait pu venir à bout d'un 
Balrog. 

Des hommes, des nains, des hob- 
bits avaienttenté d'affronter lechà- 
teau. Les rares quirevinrent avaient 
laissé leur esprit dans la lande hos- 
tile. Les pièges du château du Dra- 
gon sont de ceux auxquels nul ne ré- 
siste. 

Certains, parmi les plus vieux, af- 
firment que les restes des précé- 
dents explorateurs défendent eux- 
mêmes le trésor dont ils n'ont pu 
s'emparer. La nuit, des cris aux into- 
nations rien moins qu'humaines, 
parviennent jusqu'aux maisons du 
village. Nul ne pourrait dire avec 
exactitude ce qui se passe là-bas, 
mais l'imagination supplante la 
connaissance, et les villageois dé- 
crivent à ceux qui veulent écouter, 
les monstres hantant le château. 

Il y a le Troll, énorme, dont le 
corps semble fait de pierres; l'or- 





partez à l'aventure 
dans le pays fantastique 
des Donjons et des Dragons 





que bardé de fer, et dont les crocs 
scintillent sous la lune ; le centaure 
rapide et puissant; le Balrog, mas- 
sif et ailé ; la gouleetle vampire, as- 
soiffés de sang; le gobelin dont la 
cruauté n'a d'égal que la bêtise ; et 
bien d'autres... 

Et puis, il y a celui dont le nom fait 
s'enfuir les plus courageux, le maï- 
tre des lieux, le Dragon. Aux aguets 
dans sa tanière, ii attend l'impru- 
dent qui osera le défier. 

Jadis (c'était avant les guerres el- 
fiques), Saroumane le Magnifique 
demanda l'hospitalité aux habitants 
du château. Ceux-ci, farouches par- 
tisans des Elfes, la lui refusèrent. Et 
l'on dit que Saroumane, furieux de 
ce refus, transforma le châtelainen 
dragon, et les autres habitants en 
divers types de monstres. Puis, il 
amena le trésor qu'il tenait de ses 
divers pillages, dans le château, et 
condamna le dragon à le protéger 
pour l'éternité. 

Telle est la légende que racontent 
les Elfes, le soir, auprès du feu, mais 
les hobbits ont une autre version de 

(suite du texte p. 55) 
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Première parution : L'OI n° 2 





























‘à 1940 LF W=32 OR W=33 TIEK RESET(X,Y) ELSE 1980 
MONT: J PASCAB-HUUHERT 1950 XaV: YeW 

COBYREMITE L'ONDIHATEUR INULSOTEL ET L + 1960 SET(X,Y) 

ARR RAAR AR A AAA HA RER NIEREAAHA E RR A M AMAR ARR RR AAA AURA RAR ARR RARE ARR RAR 1970 IF £=3 Ti 2020 ELSE (l=Z+l: COTO 1660 

$ 1980 PRINTAH32,"VOUS JOUEZ LES PASSE-MUXAILLES ?) 

CLEAR 1000 1990 11=Z 


























120 Dirt N$(20),%(29),0(29),P(20),4(20),4$(50) 2000 PRIST2h64*(11+3)+54," ; 

130 PiiNT: PRINT: PRINT 2019 GOT2 1640 

140 PRIT" LE CHATEAU (UU URAGON” 2020 RETURS 

150 PRINT: PKINT: PRIST 2100 LL LL LEE] CEELELECPEELT PTE TITI. 












LU PRINT" ATTENLLON : DURANT LE JEUNE JAIALS APPUYER SUAL'ESTER!" 2110 UK L'ECAAN 















170 PRINT" — 22" 2120 PORE 15543,68: PJKE 15544,73: L5545,82 
L8U SUSUR Sbt: SOSUE 560ÿ 2130 5 POKE 15547,67: POKE 15548,84 
Y=+ 2140 POKÉ 15549,73: POKE 15550,79: P0KE 15551,78 





uk 1200 
210 cosus 1500 





EXLTIALISATLONS À] 2150 RELURN 


CANACTERISTIQUES DU PERSOYHAGE 2200 REM====umn=ssasm222222222s=ssmmnemmreemmssmmnmenmanmanaasaasanuatsaus 







SP 






220 GOSUS 1900 PLAN DES LIEUX 2210 REM LE VILLAGE 
230 FOR 123 TO bi PRINTOG4*1458, NEXC ! 2220 01=0: D2=0: U3I=0: J4=0 
240 GOSUH L600 DÉPLACEMENTS 2230 IF O=l THEN 2260 








250 RE DÉTERMINATLON DE LA ZO0YÉ ATTEINTE 2240 D=1 
260 LF X<20 AND Y<13 THEN GOSUB 2200: GOT 370 : REM VILLAGE 2250 PRINTÉ832,"VOUS ETES DANS LE VILLAGE. 
270 LF (X<30 AWD X273) AND (Y>29 AND Y<34) THEN 350 2260 IF A6=0 AND ZE=l TUEN GOSUB 1500: ZI=0: GOTU 2380 
240 LF X272 AND Y>24 THEN GUSUS 3000 ELSE 320 : AEM CHATEAU 2270 IF A6=0 THEN 2380 
290 1F 1 THEN 250 2280 CLS | 
à 2 OR ZZ=0 TIIEN 230 2290 PKINT'VOUS ETES ENFIN RENTRE, LES BRAS CIARGES D'OR ET DE PIERRERIES." 
2*3 THEN 380 2300: PRINT"VOUS REJOIGNEZ LE CLUB TRES FERME DES HEROS DE CONTES." 



























320 IF X>42 AND Y>L8 T'IEN GOSUB 3600: GOTO 340 ABORDS DU CHATEAU 2310 PRINT"PLUS TARD, QUAND VOUS SEREZ VIEUX, VOUS RACONTEREZ À VOS PETITS" 
330 GOSUB 3800 : LANDE ARLIE 2320 PKINT'ENFANTS COMMENT VOUS AVEZ VALNCU”; 

340 IF A190 THEN 230 ELSE 380 2330 FOR I=l TO N 

350 GOSUB 2400 : REM SALLE DU TXESOR 2340 PRINT AS(L);", "; 

360 1F K>6 THEN 340 2350 NEXT 1 

370 1F A4=0 OR G=4 THEN 230 2360 PRINT CHRS(24); CHAS(24)5;: PRINT." 

380 Env 2370 PRINT'ET PEUT-LTRE UN JOUR RETOURNÈREZ VOUS AU CHATEAU, QUI SAIT ?" 





LOOO REIMS A He #2 4 2e A A 4 A A AAA AAA AA AAA A ee AA AA AA AAA A À 2380 RETURN 









1U1O REM PLAN DES LIEUX 2000 REtenns nes e=nemnrennNe sas decaucssnssannenennnneensassnaus 


1020 CLS 2410 REM LA SALLE DU TRESOR 

1030 PRINT" PLAN DES LIEUX UU CHATEAU DU DRAG 2420 D=0: D2=0 DID: 5429 

1040 PRINT "==-enssessenmeneessessmmmmnmmmmmenenene 2430 1F Ol=l THEN 2550 

1050 PRINT" I NORD 2440 IP A4ÇDO THEN PRINT832,'VOUS VOUS TROUVEZ DANS LA SALLE DU TRESUR, 
1060 PRINT"'I VILLAGE 1 * 

1070 PRINT*--- pure LANDE 
1080 PRINT'I OUEST 

1090 PKINT"I prenne. tra 1e d 2460 PRINT"VOUS VOUS TROUVEZ DANS LA SALLE DU TRESOR.MAIS BIEN DES “ 
1100 PRINT" L ABORDS DU CHATEAU 2470 PRINT'COURAGEUX ONT ATTEINT AVANT VOUS CE POINT SI CONVOITE" 
1110 PRINT"I ( preenr=pprrse Le ICSENTREE" 2480 PKINT'JE DOIS VOUS PREVENIR QUI VOTRE ÉCHEC SERA SANCTIONNE." 


1120 PRINT'I I I CHATEAU a fS 2490 PRINT-PAR LA MURT, QUE LE CIEL SOIT AVEC VOUS ..." 
1130 PRINT'I suo L TRESDR->L"; STRINGS(3, 34); "1 I 2500 PKINT"LA CLEF EST COMPOSEE DE 4: CHIFFRES DE L À 6." 

























Di=l: GUTO 2550 





2450 cs 




















1140 PRINT” ERnrepeenenreete de ir © ne ue à 2510 PKINT'UN SYSTÈME DE SECURITE NE PERMET QUE 6 ESSAIS DE LA COMBINAISON." 
1150 SET(X, Y) f 2520 GOSUS 2600 

1160 PIINTA76B , "VOTRE TOTAL: "3; A1;" POINTS DE Vlé. 2530 GOSUk 2700 

1170 RETUAN 2540 IF K<=6 OR G=4 J'HEN GOSUB 1000 












ma2223====2-2s.00 








1200 REM===» 2550 RETURN 

1210 REM LES MONSTRES 2600 REMmammmnm=z= — == 
1220 HS(1)="UN SQUELRTTE": N(L)m4: O(1)=3: P(1)=0: Q(1)m4 2610 REA RESOLUTION. DU TYPE MASTÉRMIND 
1230 MS(2)="UN ZOMBIE": N(2)=5: O(2)=3: Q(2)=5 2620 FOR I=l TO 4 



























1240 MS(3)="UNE GOULE”: N(3)=5: U(3)=3: P(3)=l: Q(3)%6 2630 NW(I)=RND(6) 

1250 MS(4)="UN FANTOME": N(4)=6: O(h}=3: P(h}ml: Q(4)=8 2640 NEXT 1 

1260 MS(5)="UN VANPIRE": N(5)=6: 0(5)=6: Q(5)=8 2650 RETURN 

1270 MS(6)="UN THOLL": N(6)=12: 0(6)=6: Q(6)=6 2700 REMmma=mn=r vamssommmemamanaut | annansn=22ssmetuanmssssmeusnsusesuse 
1280 MS(7)="UN DRAGON": N(7)=15: O(7)=6: P(7)ml: y(7)=7 2710 REM BOUCLE MASTERMIND 

1290 H$(B)="UN LOUP-GAROU": N(B)=5: 0(8)#3: Q(8)=5 2715 K=0 

1300 M$(9)="UN GOBELIN": N(9)»2: 0(9)=3: P(J)a1: Q(9)=4 2720 K=K+l 

1310 MS(1O)="UN ORQUE”": N(1N)=3: 0(10)26: {10)=5 2730 EF K26 THEN PRINT'TROP T'ARD. LE SYSTEME DE SECURITE A FONCTIONNE. *: 







1320 M$(1L1)="UNE MOMIE 
1330 MS(12)="UN BALROG 





N(L1)=6: O(11)=3: Q(11)e8 PRINT'UN ENORME HACHOIR VOUS COUPE EN DEUX.": 
N(12)#10: O(12)=6: Q(12)=9 GOSUB 5500: GOTO 2980 















1340 MSCLI)=TUN GEANT": N(13)=12: O(13)=6: Q(13)=6 2740 INPUT'QUELLE EST VOTRE PROPOSITION":ES 
1350 MS(L4)="UN DEMON": N(L4)=9: D(14)=6: P(L)=1t Q(14)=7 2750 FOR 1=1 TO 4 

1960 MS(15)2"UN MINOTAURE": N(L5)=0: 0(15)=5: P(L5)=2: 4(15)=7 2760  US#LEFTS(ES, 1) 

1370 MS(16)M"UNE CHIMERE": N(L6)=6: 0(14)=3: ÿ(16)=5 2770 E(I)=VAL(QS) 

1380 HSC17)= "UN SPUYNX": N(L7)=6: O(17)=6: (17 )=4 2780  ES=RIGUTS(ES,4=-1) 






1390 MS(18)="UN CENTAUR 





: N(14)26: U(14)=9: 9(18)=4 2790 NEXT ! 

1400 MS(19)="UNE MEDUS N(19)=6: 0(19)=3: Q(19)=6 2800 FOR I=l TO 4: F(1)=0: G(L)=0: NEXT L 
1410 MS(20)="UH SORCIE N(20)=4: 9(20)=3: 1(20)25 2810 G=0: 1i=0 

1420, GS(L)="HORREUR" : GS(2)="CIEL": GS(3)="MON DIEU" 2820 FOR I=l TO 4 


































1430 GS5(4)="AU SECOURS": G$(5)="VISLON. ATROCE G$(b)#"AIE ALE ALF* 2830 IF E(I)=W(1) THEN G=G+#+l: F(I)=l: G(1)=1 
1440 GS(7)="HELAS": GS(H)="AAAAANANAN": GS(J)="BEURCK" : GS(19)="CHOUETTE” 2840 HEXT ! 
1450 RETURN 2850 FOK I=1 TO 4 





































1500 REMmemmmamazzazsanemmnsensasssssensmsssammnmmnmmenaaaan 2860 1F F(I)=1 TUEN 2910 

1510 REM CARACTERISTIQUES DU PERSONNAGE 2870 FOR J=1 TO 4 

1520 A2=0 2880 IF G(J)=1 THEN 2900 

1530 Al=RND(15)#15 2890 IF E(T)=W(J) T'UEN HeHtl: G(J)=l: J=4 

1540 AJ=RND(3)+4 2900 NEXT J 

1550 RETURN 2910 NEXT ! 

1600 REMma=sasamanmmnamesssesmanaumemennennnssannansnssaanansszmnss san ns 2920 IF GCD4 THEN PRINTCHIFFRES JUSTÉS :"4G;" JUSTES MAIS MAL PLACES :";11: 
1610 REA DÉPLACEMENTS GOTO 2720 

1620 I1=1 2930 PRINT"VOUS AVEZ TROUVE LA CLEF, LE TRÉSOR EST A VOUS." 

1630 GOSUL 2100 2940 PRINT"DES MONCEAUX D'OR, DE DIAMANTS, ET DE PIERREKIES SCINTILUENT" 
1640 FOR I=11 Tu 3 2950 PRINT'DEVANT VOUS. IL NE RESTE PLUS QU'A RENTRER." 

1650  FF=6 2960 A4=5 

1660  V=x: wey 2970 COSUB 5600: GCOSUB 5600 

1670  PRINTA64*(1+3)#58,"?";: GOSUB 5700: PRINT AS: 29B0 RETURN 

1680 IF AS*"R" THEN GOSUB LI00: I=3: GOTO 1440 3000 REMmenanassamamnmann 






















1699 IF AS="N" THEN WeW-l: GOTO 1740 3019 REM LE CHATEAU 

1700 IF A$ " THEN #=W+l: GOTO 1740 3020 D=0: D1=0: D3=0: Dé=9 

1710 IF A$ "THEN VaVe2: GOTO' 174) 3030 ZZ=0: TT=3 

1720 LF AS="E" TIEN V=V+2: GOTO 1740 3040 IF D2=0 THEN B$(2)="VOUS ETES DANS LE CHATEAU. 
1730 GOTQ 1660 D2=1: TT=2 

1740 [F V<2 OR W<4 THEN FFl: Zel:, I=3: GOTO 1840 3050 1F RND(6)<=5 THEN T=7: GOSUB 4000: GOTO 3070 
1750 LF V2105 AND 4<25 THEN FF=1l: Z=l: [=3: GOTO 1840 3055 GOSUB 3100 





1760 IF 233 AND V<72 THEN FFel: Zel: 1= 





GOTO 1840 3060 ON RND(5) GOSUB 3190,3200,3300,3400, 35000 

















1770 LF V2105 OK 4231 THEN FF=3: Z=l: I=]: COfO 1840 3070 B$(4)="": REM RELNITIALISATION POUR LE PROCHAIN COUP 
1780 ÎF W=25 AND V»72 TIEN FF=2: Zel: 123: GOTO 1940 ° 3080 RETURN 
1790 IF (V=72 OR V=73) AND W>24 THEN FF=3: Z=l: {=3: GOTO L840 3100 REMmz===mmmunmemmmnnsusaannumenmmuz2=2==22=222240 22220 



























1800 IF (V=81 OR V=80) AND 4329 THEN FF=6: Z=l: [=3: GUTO 1360 3110 REM TRAPPE LU CHATEAU 
1819, IF (V>72 AND V<82) AND W=29 THEN FE=S: Z=l: I=3: GOTO 1440 3120 8$(4)="QU'EST-CE QU'IL FAIT SOMBRE LCL... Ü 
1820  RESET(X,Y) 3130 8$(3)="UNE TRAPPE VIENT DE S'OUVRIK SOUS VOS PAS LI Q 
1830 X=V: YeW 2140 B$(5)="MAIS C'EST LA LUMIERE DU JOUR ! à 
1840 NEXT 3150 GOSUB 5900 

1850 ON FF GUTU 1860,1880,1929,1940,1980, 2020 3160 RESET(X, Y) 

14360 PRIVTAB32,"VOUS TENEZ VRALHENT A VOUS PEMURE DANS LES MARAIS ? “3 3170 Y=RND(15)+15: X=RND(15) 

1870 GOTO 1990 3180 SET(K,Y): ZZ=1 

1880 IF V=1OL OR V=102 THEN RESET(X,Y) ELSE 1920 3190 RETURN 










1390 XaV: YæW Y 3200 REA: 





CL LE NO NOIRS ERS ENS 








1900 SETCX,Y) 3210 REA FONTAINE DU CHATEAU 

1919 1F Z=3 TiEN 2020 ELSE Ll=Z+l: GOTO 1660 3220 B$(3)="VOUS AVEZ DECOUVERT UNE FONTAINE D'ELIXIN à 
1920 PKINF1832,"VOUS VOUS COGNEZ DANS LES MURS DU CHATEAU,METTEZ VOS LUNUTTES ! “; 3230 B$(4)="DE QUOI REFAIRE VOS FORCES !!! " 
1930 SOTO 1990 3240 GoSUS 5900 
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Nhistoire. Pour eux, le dragon est 


Originaire des lointaines mon- 
taägnes des Ténèbres. Chassé par 
Sauron, et trouvant la lugubre 
beauté du château à son goût, il y 
élut domicile. 

Une autre légende traite d'un roi 
elfe qui s'émut du sort des malheu- 
reux assaillants du château. llréunit 
donc un conseil formé de nains, de 
hobbits et d'elfes, et proposa d'ai- 
der les courageux explorateurs. 
Après moult discussions, ils déci- 
derent de disséminer autour et dans 
le château, des objets bénéfiques. 
Les Elfes apportèrent des armes 
magiques, les nains des armures, et 
lès hobbits un élixir de vie qu'ils te- 
naient de Gandalf le magicien. 

On dit aussi que la force et la vail- 
lance ne suffisent pas à celui qui dé- 
Sire s'emparer du Trésor. Il doit 
aussi faire travailler son esprit... 

Et maintenant, c'est à toi, Ô lec- 
teur ! d'affronter le château du Dra- 
gon. En auras-tu le courage ? 

Donjons et Dragons nous vient 
des Etats-Unis. |l est le plus célèbre 


représentant d'une nouvelle caté- 
gorie de jeux : les jeux de rôles. Ce 
sont des jeux de simulation qui ten- 
tent de s approcher le plus possible 
de la réalité en faisant subir aux 
personnages ce qui pourrait advenir 
à un homme placé dans les mêmes 
conditions. C'est ainsiqu'ils fontin- 
tervenir des facteurs comme l'intel- 
hgence, la force, le courage, l'as- 
tuce, la fatigue, la faim, la volonté, 
l'expérience, etc... Dans un jeu de 
rôle, les personnages ne sont pas fi- 
gés, ils évoluent en cours de partie. 

Ce souci de la vraisemblance peut 
quelquefois obliger la partie à se 
prolonger. C'est ainsi qu'une partie 
de Donjons et Dragons peut durer 
des jours, des semaines, voire des 
mois (en ne jouant pas tous les 
jours, bien sür !). On conçoit facile- 
ment la déception d'un joueur dont 
le personnage tombe à la première 
escarmouche | 

Donjons et Dragons trouve son 
origine dans l'œuvre de Tolkien, 
dont la renommée est immense 
dans les pays anglo-saxons (cin- 
quante millions de lecteurs). Les ro- 
mans de Tolkien nous entraînent 
dans un monde féérique et fasci- 
nant, en particulier « Bilbo le hob- 
bit» et «Le seigneur des anneaux» 
qui nous content la saga de l'an- 
neau de puissance. Bilbo est un 
jeune hobbit (petit peuple sympathi- 
que et casanier) qui est entrainé 
bien malgré lui dans la quête d'un 
trésor protégé par un dragon (tiens, 
tiens !...). Au cours de l'expédition, 
Bilbo réussit à dérober à une créa- 
ture cruelle et sans scrupules, Gol- 
lum, un anneau qui rend invisible. 
Mais cet anneau est aussi l'anneau 
de puissance, égaré par Sauron, le 
Maître des Ténèbres. Si l'anneau 
retombe entre ses mains, le monde 
est perdu. || faut donc détruire l'an- 
neau, mais, par malheur, la seule 
force capable de cet exploit, est la 
forge qui l'a fondu. Et cette forge se 
trouve naturellement à Mordor, le 
royaume des Ténèbres 

«Le seigneur des anneaux» ra- 
conte les aventures du petit groupe, 
mené par Gandalf le magicien, dont 
la difficile et délicate mission est de 
détruire l'anneau. 

L'œuvre de Tolkien est un catalo- 
gue inépuisable de monstres et de 
situations dont se sont beaucoup 
inspirés les créateurs de Donjonset 
Dragons. 

Comment se déroule une partie 
de D et D? La préparation com- 
mence longtemps avant la partie 
elle-même. 

Le Maître du Donjon, qui est le 
meneur de jeu, trace un plan très 
précis du terrain sur lequel évolue- 
ront les joueurs : villages, falaises, 
sentiers, passages secrets, et, bien 
sûr, le château et sa salle du trésor. 


Il est recommandé d'installer quel- 
ques oubliettes, divers pièges plus 
ou moins meurtriers, mais aussi des 
rivières et d'autres aménagements 
susceptibles d'aider l'expédition, 
car le rôle du Maître du Donjon n'est 
pas de tuer à tout prix les person- 
nages, pas plus que de les laisser 
progresser tranquillement. Il doit 
savoir doser ses effets. Son rôleest 
loin d'être simple. Et puis, le grand 
jour arrive, chaque joueur choisit 
son personnage (guerrier, elfe, ma- 
gicien, etc...) et détermine grâce à 
des dés les caractéristiques de ce- 
lui-ci : courage, force, sagesse, vita- 
lité, etc. Et l'expédition démarre. 
Le Maître du Donjon demande la di- 
rection vers laquelle veulent se ren- 
dre les membres de l'expédition, 
ceux-ci se concertent et décident. 
Le Maître du Donjon décrit alors les 
alentours, grâce à sa carte, et fait 
éventuellement intervenir un où 


des monstres. Et la partie continue 
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Al=AL+RND(5)+5 
GOSU8 6000 
2222 
RETURN 
REMmenmzmsammnasms LI 
REM OUBLIETTES DU CHATEAU 
GOSUB 5900 
CLS 
PRINT'AAAAAAAAAAIT 111" 
PKINT"VOUS ETES TOMBE DANS LES OUBLIETTES ." 
GUSUB 5400 
24=3 
RÉTUHN 
REM======2222=2=22=222 . 
REA PIÈGE VU CHAr 
B$(3)="VOUS AVEZ DECLENCHE (UN PIÈGE: 
BS(4)="UNE FLECHE VIENT UC SE PLANTE DANS VOTRE BRAS... 
Gusun 5900 
Al=AL=RNU(5) 
GOSUE 6OOÛ 
IF Al€=0 THEN ZZ=3: CLS: GOSUB 5400: GOTO 3490 
Zi=2 
RÉTURY 
REs=sannssss=sns25233=-22222ss2ssasenmemmnamassusssm nm messes 
RE PILIER DU CHATEAU 
AS(C3)="VOS PAS ONT PROVONIE LA CHU D'UN PILIER. 
B$(4)="VOUS ETES BLESSE. 
GOSU 5900 
AL=AL=RNU(6) 
GOSUB 6000 
IF Al<=0 THEN 2Z=3: CLS: GOSUS 5400: GUTO 3590 
Z2=2 
RETURN 
DONLLELLELEEEE EEE ER RRRRSRREEE EEE EEE 
REM ABORDS DU CHATEAU 
D=0:; Dl=0: D2=0: Dé=Ù) 
TT=0 
IF DJ=l AND U5=l THEN Tl=3: GOTO 3680 
IF L3=1 THEN Tf=l: GUTO 3680 
B$(0)="VOUS ÊTES PRES UU CIIATEAU. LES MOMSTRÉS PULLULENT PAR ICL... 
D3=1 
IF Z1€30 AND D5=0 THEN BS(L)=" ... 
B$(2)=H$(1): DS=1: GOTO 3720 
BS(1)="VOUS POUVEZ, SI VOUS LE DESIREZ, ALLER REFAIRE VOS FORCES AU 
B$(2)=" VILLAGE ( A VOS RISQUES ET PERILS ). 
ZI =] 
T=9: GOSUB 4000 
B$(4}="" 
RETURN 
LADPCLLPECEPPPECTEPEEPEETEEPEPEPEPEETEEEPEETEEEE TETE EE EEE EEE EEE ES 
REM LANDE ARIDE 
U=0: D1=0: D2=0: D3=0 
TT=0 
IF Dé=l THEN TT=3: GOT 3890 
B$(0)="VOUS ETES DANS LA LANDE ARIDE QUI SEPARE LE VILLAGE DU CHATEAU." 
B$(1)="VOUS POUVEZ Y FAIRE DE MAUVAISES RENCONTRES ? 
B$(2)=" (EH Enl!!...) ® 
Dés] 
T=ll: GOSUB 4000 
B$(4)="" 
RETURX 
L'OCCELLCCELEEPEPEEEECEPECECCCECCCCCCNENNENNENEENEEENEnennenntts 
REM COMBAT (OU NUN) AVEC LE MONSTRE 
IF RND(12)<T TUEN 85(3)="TOUT A L'AIR TRANQUILLE, POURSULVEZ VOTRE 
CHEMIN. “3 
GOSUB 5900 : GOTO 4660 
B$(3)="JE SENS QU'IL VA SE PASSER QUELQUE CHOSE ... 
U=RND(102): RESTORE 
FOR I=1 TO U 
READ S 
NEXT I 
IF S<4 THEN GOSUB 4700: GUSUB 59090: GOTO 4660 
cosuB 5900 
Gosu8 5600 
ces 
S=8-3 
N=N+#l 
A$CN)=M$(S) 
PRINT GS(RND(19));" 1!!! 
MI=N(S) 
H220(S) 
M3=P(S) 
HémQ(s) 
PRINT"VOUS DEVEZ COMBATTRE" 
PRINT" POINTS DE VIÉ 
PRINT" vous TA 
PRINT TAB(2) MS(S); 
PRINT TAB(16) 1; 
PRINT CAB(32)"1 A";M2; "+"; M3; 
PRINT TAB(53) M4 
GOSUB 5600: GOSUB 5600 
PRINT'LE COMBAT" 
IF RND(2)=1 THEN PRINT'VOUS FRAPPEZ LE PREMIER.": GOTO 4450 
PRINT"LA MONSTRE FRAPPE EN PREMIER." 
Gosus 5600 
IF RND(10)<A3 THEN PRINTLE MONSTRE RATE SON COUP... 
: GOTO 4450 
PRINT"LE MONSTRE VOUS A TOUCHE." 
GosuB 5600 
B=RND(M2)+M3 
GOSUB 4900 
Al=al-B 
GosUB 5600 
IF Al<=0 THEN GOSUB 5300: GOTO 4660 
PRINT"VOTRE NOUVEAU TOTAL :"; AL; "POINT"; 
IF ACL THEN PRINT'S"; 
PRINT" DE VIE." 
Cosus 5600 
PRINT"A VOUS LE FRAPPER." 
GosuB 5600 
IF RND(10)<M4 THEN PRINT'VOUS RATEZ VOTRE COUP... AU MONSTRE." 
: GOTO 4310 
PRINT"VOUS AVEZ TOUCHE LE MONSTRE." 
GOSUB 5600 
B=RND(6)+A2 
GOSUB 4900 


FORCE DE FRAPPE RESISTANCE” 
1A6 +";42;”7 "AI 


A VOUS." 
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4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4790 

4710 


4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5200 
5210 
5220 
5230 
5240 
5300 
5310 
5320 
5330 
5340 
5350 
5400 
5410 
5420 
5430 
5440 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5600 
5610 
5620 
5630 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5800 
5810 
5820 
5830 
5840 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
6000 
6010 
6020 
6030 
9000 
9010 
9020 
9030 
9040 


M1=M1-B 

GOsuB 5600 

IF Ml<=0 THEN 4580 

PRINT"LE NOUVEAU TOTAL DU MONSTRE :";M1;"POINT"; 

IF M1<>1 THEN PRINT"S"; 

PRINT" DE VIE," 

PRINT" AU MONSTRE DE FRAPPER.": GOTO 4310 

GOSUB 5600 

PRINT"APRES CE COMBAT ACHARNE, VOUS. AVEZ VAINCU ";:MS(S);",." 


PRINT* BON POUR LE MORAL. MAIS CE N'EST PAS ENCORE TERMINE...": 


GOSUB 5600 

PRINT"VOTRE TOTAL ACTUEL :";Al;"POINT*: 

IF A1l<)1 THEN PRINT"S DE VIE." ELSE PRINT “DE VIE." 
GosuB 5600: GOSUB 5600 

GOSUB 1000 
RETURN 
REMmmmz 

REM TROUVALLLES ! 

ON S GUTO 4730,4770,4810 

B$(4)="VOUS AVEZ TROUVE UNE BOUTEILLE D'ELIXIR. 

B$(5)="EN LA BUVANT, VOTRE VITALITÉ AUGMENTE. 

Al=AL+RND(6) 

GOSUB 6000: GOTU 4840 

B$(4)="VOUS AVEZ TROUVE UNE ARME MAGIQUE QUI AUGMENTE VOTRE FORCE. 
A2=A2+1 

IF A23>3 THEN A2=3 

GOTO 4840 

BS(4)="VOUS AVEZ TROUVE UNE ARMURE QUI VOUS PROTÈGE. 

AG=A3+L 

IF A3>9 THEN A3=9 

RETURN 

CORCELEEPEECEPE EEE PEER EE CTPPEET EEE PERTE EEE EEE EEE EEE EEE CEE EEE 
REM COMMENTAIRES DU COMBAT 

IF B>B THEN PRINT'C'EST UN MAITRE COUP.": GOTO 4970 

IF B>6 THEN PRINT'CA, CA FAIT TRES MAL !1!": GUTO 4970 

IF B>4 THEN PRINT'OUILLE !:1": GOTO 4970 

IF 8B>2 TMEN PRINT'UN PEU FAIMLE...": GOTO 4970 

PKINT'JUSTÉ UNE EGRATIGNURE." 

RETURN 


nASSRS2n22S222222522522515225S22R=Ss=S==SR=E === ssS Sn =3= 2552 
MALEDICTION ! 

GOSUS 5200 

PRINT“PAR LE SANG DU DRAGON..." 

GOSUS 5200 

PRINT"PAR LE DRAGON DU CHATEAU," 

GOSUB 5290 

PRINT"QU'A L'APPEL DE SON NOM..." 

GOSUB 5200 

PRINT'LE TRESOR QUITTÉ VOS 0S.* 

GOSUB 5600 

PRINT"VOILA QUI EST FAIT, LE TRESOR À REINTECRE SON COFFRE." 

RETURN 

REM== LELCCLLEL LCL LEE EE 

REH MISE EN PAGE 

GOSUB 5600 

PRINT" HT 

RETURN 

PAR CLELELELCELECECECECECEPCECECECECEPPEPECEPECECCCCCCCECECEC EEE PELLE EEE) 

REH FIN DU JEU APRES UN COMBAT CONTRE UN MONSTRE 

PRINT"CE DERNIER COUP QUE VOUS A PORTE ";M$(5);" VOUS A TUE." 

GOSUB 5600 

GosuB 5400 

RETURN 

REMH== 

REM DÉBUT DE LA FIN 

IF A4ÇD0 THEN PRINT'EXCUSEZ#"MOI UN INSTANT-..": GOSUB 5000 

Gosus 5500 

RETURN 

RE Mon 20 0 28 20 20 20 20 00 208 0 20 20 20 20 20 20 20 20 0 0 0 8 0 D D 2 ON D D 0 nn Où 

REX C'EST LA MORT ! 

PRINT"VOTRE SQUELETTE CUMME CELUI DE TANT D'AUTRES TEMOIGNERA DE" 

PRINT"VOTRE COURAGE, MAIS AUSSI DE VOTRE TEMERITE." 

GoSuB 5600 

PRINT"DOMMAGE... VOUS M'ETIEZ SYMPATHIQUE." 

PRINT"MAIS PEU DE GENS RECHAPPENT DU CILATEAU DU DRAGON, HELAS..." 

RETURN 

RE M 20 0 200 0 20 2000 00 020 2020 0 20202020 0 08 2020 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 020 D 0 0 0 8 0 

REH TEMPORISATION 

FOR I=l TO 500: NEXT 1 

RETURN 

REMemonamnmsanmansamunannnmmmnennanmennemesmsmnnanemssmnsmmmssmmuxs 

REM ATTENTE D'UNE COMMANDE 

ZX=0 

AS=INKEYS 

ZX=2X41 

IF ZX=3 THEN GOSUB 5800 

LF A$="" TIIEN 5730 

RETURN 

REG 20 20 2020820 2020620200 020 0 08 02 0 282 OO 2 0 2 2 D D 2 D DD 2 0 0 

REM CLIGNOTEMENT DU POINT LUMINEUX 

ZX=0 

IF POINT(X,Y)==1 THEN RESET(X,Y) ELSE SET(X,Y) 

RETURN : 

REMemmmnmmmnmnmtnns mnt nn Mn M RM M RS RSR Mn 

REM ECRITURE DES COMMENTAIRES SOUS LE PLAN DES LIEUX 

PRINTÉ832,BS(TT) 

Q=TT+L 

IF B$(Q)="" THEN 5980 

PRINT B$(Q) 

GoSUB 5600 

IF "B$(Q+1)<>"" THEN TT=TT#+1 : GOTO 5920 

RETURN 

REM== LLLLLLLLLL LL LL LL LL LL): LL. LL] 

REM MISE A JOUR DU NOMBRE DE POINTS DE VLE RESTANT 

PRINTE780, A1 

RETURN 

REM== 2222; 

REM TEST SUR LA REPONSE 

INPUT RS 

IF R$C>"N" AND RSCD"O" THEN PRINT'REPONDRE PAR O OÙ N*: GOTO 9030 

RETURN 


10000 REH=mmmnmmanmmammammmamaanmansnan=nmzam2sammmnnnssammnmsnnmnnn mms 
10010 LATAL,1,1,2,2,2,3,3,3,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5 

10020 DATA6,6,6,6,6,7,7,7,7,7,8,8,8,9,9,9,10,11,11,11,11,11,11,11 

10030 DATA12,12,12,12,12,12,12,12,12,12,13,13,13,13,14,14,14,14,16,14 
10060 DATAL5,15,15,16,16,16,17,17,18,19,19,19,19,19,20,20,21,21 

10050 DATA22,22,22,22,22,23,23,23,23,23,23,23,23 








iUsdu'au retour de l'expédition, ou 
ämla mort de tous ses membres. 

Pour aider le Maître du Donjon, il 
existe des recueils qui donnent des 
idées de scénarios, qui décrivent 
dés monstres, avec leurs caracté- 
ristiques, qui répondent aux di- 
Verses situations dans lesquelles 
peut se trouver le Maître du Donjon 
Ilexiste enfin des figurines repré- 
sentant les personnages et les 
monstres, ainsi que les trésors, les 
armures, etc... 


Dans «le château du Dragon», 
c'est l'ordinateur qui joue le rôle du 
Maître du Donjon. Vous constituez 
l'expédition. 

ll s'agit, partant du village, d'at- 
teindre la salle du trésor, d'ouvrir le 
coffre, et de rentrer au village 
vivant, si possible. 

Vous sélectionnez trois fois de 
suite la direction vers laquelle vous 
désirez aller (le terrain représente 
un carré de 50 x 50), l'ordinateur 
Vous indique où vous vous trouvez, 
et détermine éventuellement un 
événement. Cet événement peut 
être soit bénéfique (objets bénéfi- 
ques), soit maléfiques (rencontre 
aVec un monstre) Arrivé dans la 
salle du trésor, il faut trouver la 
Combinaison du coffre, selon le 
principe du Mastermind. 

Voici les principales caractéristi- 
ques du jeu: 

Les combats. Chacune des créa- 
türes du « château du Dragon » (per- 
sonnage ou monstre) est caractéri- 
Sée par trois facteurs : le capital-vie, 
la résistance et la force 

“Le capital-vie est la vitalité de la 
créature. Chaque blessure le dimi- 
nue, son annulation correspond à la 
mort. 

“La résistance est le seuil minimal 
de l'ardeur que doit déployer l'ad- 
Versaire pour que son coup porte. La 
résistance d'une momie est par 
exemple de 8. Au cours d'un com- 
bat, vous ne toucherez la momie que 
Si. l'ordinateur réalise (par un 
RND (10)}} un nombre supérieur ou 
égal à 8. 

… La force permet de déterminer la 
gravité de la blessure infligée après 
un coup réussi. La force est définie 
par deux variables : fet f’. La gravité 
du coup est calculée par RND(f) + f', 
et est retranchée au capital-vie de 
l'adversaire. 

Grâce à ces trois principes, un 
Combat vraisemblable peut avoir 
lieu. Une créature faible mais chan- 
Ceuse peut vaincre une créature 
plus forte. 


Voici un exemple de combat : 

Vous êtes près du château, tout 
d'un coup surgit un gobelin. 

Le gobelin frappe le premier. Il 
réalise un 8. 8 est supérieur ou égal 
à 7, donc le coup a porté. La bles- 
sure infligée (RND(3) +1) est de 3. 
Votre nouveau total est donc de 28- 
3 = 25: 

A vous de frapper. Vous réalisez 
un 3. 3 est inférieur à 4, donc votre 
coup n'a pas porté. Au gobelin de 
frapper, etc... jusqu'à la mort de l'un 
des adversaires. 

Les principales variables sont 
A1: capital-vie; A2: constante 
force: A3: résistance; A4: dra- 
peau du trésor; pour l'homme et 
M1: capital-vie; M2: force; M3: 
constante force ; M4: résistance ; 
pour le monstre. 

{x,y): coordonnées du point cligno- 
tant. 

| J,Q : indice de boucle. 

ZZ : drapeau indiquant sion termine 
ou non le jeu. 

K : indice de la boucle Mastermind. 
M$(20) : tableau des monstres. 
G$(10): tableau des exclamations 
(commentaires). 

11 : nombre de directions déjà de- 
mandées. 








FF: drapeau indiquant les diffé- 
rentes impossibilités de se déplacer 
dans une direction donnée. 

A$ : réponse pour la direction. 
VW : variables de travail, coordon- 
nées du point lumineux. 

Z : variable de travail, niveau d'in- 
crémentation de la variable |. 
D,D1,D2,D3,D4,D5 : drapeau indi- 
quant si après déplacement on se 
trouve dans le même lieu géogra- 
phique (village, lande, château, 
abords du château...) 

ZI: drapeau pour ravitaillement au 
village. 

W{(1): nombre aléatoire. 

ES : réponse pour proposition pour 
le coffre. 

G : nombre de chiffres justes (de la 
combinaison du coffre). 

F(l}: indique si le chiffre est bien 
placé et juste. 

G (1): indique si le chiffre est mal 
placé mais existe dans la combinai- 
son. 

H: nombre de chiffres mal placés 
mais existant dans la combinaison. 
TT :initialisation de la boucle de lec- 
ture des commentaires. 

B$(6) : chaînes de caractères com- 
mentaires. 

T : est égal à Sou11,indiquantsion 
est aux abords du château ou si on 
est dans la lande aride. 

U : variable aléatoire, fin de la bou- 
cle de lecture des données en data. 
S : données en data. 

B : variable servant à la détermina- 
tion des nouveaux points de vie; 
montre la force du coup donné à 
l'adversaire. 

ZX : variable servant à la vitesse de 
clignotement du point lumineux. 
N(29): tableau des points de vies 
des différents monstres au point de 
départ. 

O(20) : tableau des forces de frappe 
des monstres. 

Q(20) : tableau des résistances des 
différents monstres. 


Si vous trouvez le jeu trop facile, 
ou trop difficile, il est possible de 
jouer sur les coefficients. Par exem- 
ple, augmenter ou diminuer les 
points de vie du personnage, aug- 
menter où diminuer sa force. Et 
laissez aussi courir votre imagina- 
tion afin de trouver de nouveaux 
p'èges, de nouveaux monstres, 
etc. 


Un autre développement consiste 
à introduire des possibilités de déci- 
sion de la part du joueur dans le dé- 
roulement des combats. Evitez tou- 
tefois de fuir à toutes jambes lors- 
qu'arrive le premier monstre. 


Bon voyage. Peut-être en réchap- 
perez-vous, mais rien n'est moins 
sûr... 





Jean-Pascal Humbert 


om 
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l'avenir ? 


choisissez 





evin, devin et demi 


vos bons augures 





« L'avenir n’est à personne » disait Victor Hugo. 
Ne laissez donc à personne le soin de le préparer 
pour vous : si vous avez besoin d’un petit oracle, 
pourquoi n'utiliseriez-vous pas un programme en 
BASIC pour TRS. 








Il y a certaines choses qui n’ont 
l'air de rien mais que l'être hu- 
main n'accomplit qu'avec de 

p grosses difficultés. On trouve 
+ même certaines activités, appa- 
5 remment simples comme bonjour, 
= qui sont pratiquement impossi- 
5 bles à effectuer. Ainsi, par exem- 
5 ple (mais cet exemple n’a pas été 
à choisi au hasard) dire n'importe 
à quoi. Quels que soient les efforts 
£ que l'on consent et les précau- 
à tions dont on s'entoure, ce que 
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æ 
l'on dit a toujours un sens. Il n'est 
pas toujours facile de restituer ce 
sens intégralement, mais si l’on 
accepte de passer un certain 
temps à y réfléchir, an en retrouve 
au moins quelques bribes. 


Essayez de dire une phrase qui 
n'ait « ni queue ni tête », notez-la, 
recherchez ce qu'elle vous évo- 
que, faites un petit effort, et vous 
vous apercevrez sans doute 
qu'elle n'est pas insignifiante. || y 


a en fait de fortes chances pour 
que cette phrase vous parle, et il 
est logique d'en conclure que, 
lorsqu'on dit « n'importe quoi », 
quelque chose nous échappe... 


Certains psychologues soutien- 
nent même l'idée selon laquelle il 
nous serait impossible de donner 
un nombre « au hasard ». En creu- 
sant un peu ce que ce nombre 
nous dit, on y découvrirait assez 
vite qu'il n'est pas si quelconque 
que cela. Bref, si l'on peut risquer 
cette formule peut-être désagréa- 
ble, nous serions dotés d'un très 
mauvais générateur de nombres 
aléatoires ! 


Dire n'importe quoi. Essayons 
tout de même. En nous faisant 
aider par un ordinateur individuel, 
nous devrions presque y réussir. 
Sur ce type de machines en effet, 
on peut utiliser des séquences 
d'instructions qui fournissent des 
nombres tirés au hasard. Peu 
nous importe ici de savoir si les 
loteries arithmétiques respectent 
parfaitement les lois de la proba- 
bilité : il suffit que les nombres 
tirés ne nous soient pas connus 
d'avance. 


Ces nombres serviront à choisir 
des mots, et avec ces mots le 
programme construira des phra- 
ses qui, très probablement, nous 
étonneront. Pour la plupart d'en- 
tre elles, il ne nous serait jamais 
venu à l'idée de les prononcer ! 


Comme chacun sait, l'ordina- 
teur compte bien : nous nous ar- 
rangerons donc au passage pour 
lui confier la tâche de compter les 
syllabes des phrases et nous 
ferons en sorte que chacune des 
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phrases aient douze syllabes. 
Pour être tout à fait précis, ce 
n'est pas la syllabe que nous 
ferons décompter, mais — alexan- 
drin oblige — c'est le pied. 

Dans cette version du pro- 
gramme, nous nous contenterons 
d'un alexandrin très classique, ré- 
gulièrement coupé en deux parties 
égales (en versification, on parle 
d'hémistiches) séparées par une 
petite pause vocale (la césure). 
Essayez de vous souvenir, je suis 
certain que vous avez appris tout 
cela durant votre scolarité. Si 
vous avez complètement oublié, 
ne vous faites pas de souci ; voici 
un exemple d'alexandrin classi- 
que et régulier (mais pas très fa- 
meux) : 


Tous les ordinateurs 


1''hémistiche 


césure 


place disponible dans la « mé- 
moire » de votre machine. 

La seconde restriction est 
beaucoup plus fâcheuse, car elle 
conduit en fait à donner à tous ces 
alexandrins automatiques un air 
de famille. Chacune des phrases 
étant bâtie sur le même modèle 
grammatical, il est difficile d’en 
aligner quatre ou cinq d'affilée 
sans engendrer une impression 
passablement désagréable de 
monotonie. Il n'était donc pas 
question de s'essayer à produire 
des épopées. Et je n‘aborde pas le 
problème de la rime ! 

Sachant par ailleurs que le but 
du programme était de produire 
des textes qui signifient n'importe 
quoi, j'ai pensé qu'il fallait mieux 


font des alexandrins 


2' hémistiche 





Ce type de vers, qui est un des 
plus répandus de la poésie fran- 
çaise, a son rythme bien à lui, il 
s'en dégage une petite musique, 
une scansion particulière, tarata- 
ratata (silence) tarataratata, soit 
six pieds plus six pieds, ce qui fait 
douze. Le compte est bon. Natu- 
rellement, il y a des variantes sur 
le même schéma rythmique : 
.tatarata-tata/taratata-tata 
.tatara-tatara/tata-taratata 
.tata-taratata/tarata-tarata 
. etc. 
et je vous fais grâce du reste car 
le programme s'en chargera très 
bien. 





Construire 
des alexandrins 
par milliers 





Pour ne pas repousser trop loin 
les limites du raisonnable, j'ai dé- 
cidé que le vocabulaire utilisé se- 
rait composé de quelques centai- 
nes de mots et que tous les vers 
fournis par l'ordinateur seraient 
« coulés » dans le même moule 
syntaxique sujet / verbe / 
complément. 


Que le vocabulaire ne soit pas 
très étendu n'a guère d'impor- 
tance, à condition bien entendu, 
qu'il soit bien choisi. Vous pouvez 
d'ailleurs le modifier au gré de 
votre fantaisie et le faire grossir 
autant que vous le permettra la 
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assez jolis : on y comprend ce que 
l'on veut et c'est très bien. D'au- 
tres encore, les plus nombreux, 
sont obscurs. 


Avec beaucoup de patience, on 
parvient à « tirer un vers » excel- 
lent de loin en loin. L'ordinateur 
est Infatigable, mais pour mériter 
ce petit joyau de douze pieds qui 
survient on ne sait pourquoi, on 
doit s'infliger la lecture d'une lon- 
gue série d’alexandrins très her- 
métiques. Pour l'avoir pratiquée 
plusieurs heures, je sais que ce 
jeu est assez fastidieux à la lon- 
gue. Et c'est la raison pour la- 
quelle je vous en propose un 
autre. Au demeurant, cela ne vous 
privera pas des rares alexandrins 
bien trouvés qui peuvent toujours 
survenir. 


Puisqu'elles sont les plus nom- 
breuses, intéressons-nous aux 
phrases obscures. Ces vers sibyl- 
lins ont en effet toutes les carac- 
téristiques des oracles : le sens 
en est obscur et ils disent n'im- 
porte quoi. Chacun peut y lire son 
avenir ou celui des autres, chacun 
peut y lire ce qu'il veut. Vous voici 





exemple : 


LE MOULIN DU REVEIL 


UN LUTIN DE MISERE IRA VERS LA DOUCEUR. 


UN DESIR TOUT A COUP 


UN CONTEUR RAYONNANT 





SIRENE DE L'IRONIE 
LE REVEUR IMPORTUN A SURPRIS LA BEAUTE. 


LA MINUTE DE L'AFFECTION 
UN MALHEUR TRANSPARENT IMPLORE LA MALICE. 


REGARD DU DEDAIN 


DEESSE DE LA RIVIERE 





ne pas s'étendre... C'est bien 
connu, ce sont les plaisanteries 
les meilleures. Je me suis donc 
modestement contenté de 
poèmes qui ne comptent qu'un 
seul vers. Cela se fait en Chine et 
au Japon quelques mots qui 
vous font on ne sait trop quoi, 
vous les écoutez et cela vous 
laisse tout chose. 


Seulement voilà, dans le pro- 
gramme en question, ce n'est ni 
comme en Chine ni comme au 
Japon. Ici, tout se fait au hasard, 
et même si parfois le hasard fait 
bien les choses, ce n'est pas la 
règle générale. Certains alexan- 
drins sont d'une banalité affli- 
geante (j'aurais pu les écrire moi- 
même, c'est dire), d'autres sont 


À CASSE L'AMITIE. 


ACCUEILLE SA CHANSON. 








devin. La Pythie de Delphes, qui 
s'était fait une solide réputation 
en la matière, ne procédait pas 
autrement. || suffit de dire n'im- 
porte quoi, et si la phrase impéné- 
trable est parée des vertus de 
l'oracle, il se trouvera toujours 
quelqu'un pour lui donner un 
sens, pour l'orienter, il se trouvera 
toujours une situation à venir où 
elle deviendra limpide. 


N'allez pas toutefois en faire le 
commerce : la loi française, à 
juste titre, a prévu des peines 
pour quiconque abuserait de la 
crédulité publique. Et je crois 
qu'elle a très bien fait. 


Vostradamus 
+ 


rebonds 





le tennis 


dans un fauteuil 





Ily a beaucoup de jeux pour ordinateurs indivi- 
duels qui occupent plusieurs personnes, 
preuve que l'ordinateur n'isole pas nécessaire- 
ment, mais qu'il peut bien au contraire réunir. 
Lorsque votre écran se transforme en un court 
de tennis, vous ne jouez pas avec ou contre la 
machine, vous jouez grâce à elle, et entre 
vous : le tennis est par excellence un jeu où 
lon se renvoie la balle. Pour utiliser ce pro- 
gramme de tennis, vous n'aurez besoin ni de 
balles ni de raquettes, mais vous pouvez pré- 
voir deux sièges confortables. 





On retrouvera ici les principes même résultat en enfonçant res- 
surlesquels reposent certains jeux pectivement les touches numéri- 
(vidéo » : deux raquettes se dé- ques 9 (vers le haut) et 6 (vers le 
placent verticalement aux deux ex- bas). Vous constaterez qu'on s'y 
trémités de l'écran. Dans l'entre-. habitue très vite. 
deux, une balle vient rebondir de Pour que tout le monde puisse 
lune, à l'autre et sur les côtés trouver son bonheur, le joueur 
Supérieur et inférieur de l'écran jus- averti comme celui qui n'a-jamais 
què,ce que l'un des joueurs la touché une raquette, on a prévu 
laisse passer derrière la raquette, hour la balle une vitesse réglable. 
Ce Qui lui fait, bien entendu, perdre 


un point. Les deux adversaires choisis- 


sent cette vitesse au début de la 
u partie (ligne 300 à 350) en indi- 
: quant un chiffre compris entre 2 et 

Que penserait Borg 5. Cette valeur est rangée dans 
des balles une variable C et représente l'inter- 
avi salable ? valle, en abscisse, de l'affichage 
tesse (69 able ns de la balle. Avec 2, les échanges 
sont très calmes. Avec 5, on s'en- 


Le programme a été concu sur voie des « boulets de canon ». 
UN TRS 80 niveau 2, et il occupe Le graphisme du TRS 80 mo- 
environ 3 Ko en mémoire. dèle | (une grille de 128 x 48) ne 
permet pas d'accroître l'intervalle 
des déplacements sur l'axe des 
ordonnées : il s'effectuera toujours 
avec un pas égal à l'unité. Une 
valeur supérieure transformerait 


tantiles flèches verticales (vers le MOtre tennis en une sorte SenbIle 


aut et vers le bas : sans commen- EST L 
taire). Celui de droite obtient le C'est aux lignes 600 à 1600 











Pour les mouvements de la ra- 
quette vers le haut et vers le bas, 
Chäcun des deux adversaires dis- 
Pose de deux touches. Celui de 
gauche appuie sur les touches por- 
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10 REM * TENNIS * 

20 REM MIS AU POINT SUR TRS-80 

30 REM AUTEUR : MARC AUBRY 

40 REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 


SO REM# 9e ee ee AAAARARRA A 
CLS 

110 G60SU8 1000 
120 GOSUB 1200 
130 GOSUB 1400 


100 


140 
150 
160 


REM PRESENTATION 
REM MODE D'EMPLOI 
REM CHOIX DES VITESSES 


GOSUB 1600 REM AFFICHAGE DU JEU 
GOSUB 2700 + REM AFFICHAGE DES RAQUETTES 
1F M1=10 OR M2=10 THEN 240 d 


170 A1=23: A2=23: N1=0: N2=0 


180 
190 
200 
210 
220 
230 


IF J=1 THEN X=H2: GOTO 220 

x=H1 

IF U=2 THEN GOSUB 1700 ELSE GOSUB 1900 : REM DEPLACEMENT DE LA BALLE 
GOTO 150 

1F U=2 THEN GOSUB 2000 ELSE GOSUB 2200 : REM DEPLACEMENT DE LA BALLE 
GOTO 150 


240 PRINT: PRINT"VOULEZ-VOUS UNE AUTRE PARTIE ?* 
250 GOSUB 9000 : REM TEST SUR LA REPONSE 


260 


IF R$="0" THEN 130 


270 END 


1000 
1010 
1020 
1030 
1060 
1050 
1060 
1070 
1080 
1090 
1100 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1400 
1410 
1420 
1430 
1640 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 


LAN LL 222117:11111;:11))1;,))));,););,),:,;,);),;),;,;)))),);,;,)),;,;,;,);,);,);,),;,;,;,.,;,);)] 
REM PRESENTATION DU JEU 
FOR 6=1 TO 127 
SET(B,18) 
NEXT 8 
PRINTA468,CHRS(23)"* TENNIS # 
FOR B=1 TO 127 
SET(B,25) 
NEXT 8 
FOR B=1 TO 3500: NEXT 8 
RETURN 
REM===nn nee 
REM MODE D'EMPLOI 
CLS 
PRINT CHR$(23), 
PRINT2130, "POUR DEPLACER LA RAQUETTE," 
PRINTA258,"LE JOUEUR DE GAUCHE DOIT" 
PRINT'APPUYER SUR LA FLECHE EN HAUT" 
PRINT" QU SUR LA FLECHE EN BAS." 
FOR B=1 TO 1500: NEXT 8 
PRINTA514,"LE JOUEUR DE DROITE DOIT" 
PRINT" APPUYER SUR 9 POUR LE HAUT" 
PRINT" OÙ POUR 6 POUR LE BAS" 
FOR 8=1 TO 3500: NEXT B 
RETURN 
REM=—mm 
REM CHOIX DES VITESSES 
cLs 
MI=0: 12=0 
PRINT CHR$(23), 
PRINTA266, "CHOISISSEZ VOTRE VITESSE" 
PRINTA4OG,"LENTE semcessnonse2" 
PRINTA468 , MOYENNE 
PRINTA532, "RAPIDE 
PRINT9596, "SUPERSONIQ 
PRINTA782, "VOTRE CHO1X";: INPUT C 
IF C>S OR C<2 THEN 1400 
IF C=2 THEN H1=10: H2=118: D=122: Fr6 











IF C=3 THEN H1=10: H2=118: D=121: F=7 
IF C=4 THEN H1=12: H2=116: D=120: F=8 
1F C=5 THEN H1=9: H2=119: D=119: F=9 
RETURN 
RENrE rene enr nanatenennenvenamenpenmemmnress mens 
REM AFFICHAGE DU JEU 
cLs 
E1=4: E2=124 
FOR 8=1 TO 127 
SET(B,0) 
SET(B,47) 
NEXT 8 
RETURN 
REN---mmmmmccsmanesmcmrre nn emmenés een see meme en 
REM DEPLACEMENT DE LA BALLE 
REM En bas a droite 


X=X+C: Y=Y#1 

SET(X,Y): RESET(X-C,Y-1) 

IF X=E2 THEN M2=M2+1: GOTO 2320 
GOSUB 2400 

IF NOT POINT(X+C,Y+1) THEN 1730 

LF POINT(X+C,Y) THEN 1800 

IF POINT(X,Y+1) THEN 1900 ELSE 2000 
IF X=D AND Y=46 THEN 2000 

IF X=D THEN 2200 

REM---—==- en haut a APONtE are r een nee E 
X=X+C: Y=Y-1 

SET(X,Y): RESET(X-C,Y+1) 

IF X=E2 THEN M2=M2+1: GOTO 2320 
GOSUB 2400 

IF NOT POINT(X#C,Y-1) THEN 1910 

IF POINT(X+C,Y) THEN 1980 

IF POINT(X,Y-1) THEN 1700 ELSE 2200 


IF X=D AND Y=1 THEN 2200 
IF Y=1 THEN 1700 { 
REM---==== en haut a gauche -----—-- 





X=X=C: Y=Y=1 

SETCX,Y): RESET(X+C,Y#1) 

IF X=E1 THEN Mi=M141: J=1: GOTO 2320 
J=0 

GOSUB 2400 

1F NOT POINT(X-C,Y-1) THEN 2010 

1F POINT(X-C,Y) THEN 2090 

IF POINT(X,Y-1) THEN 2200 ELSE 1700 
1F X=F AND Y=1 THEN 1700 

1F X=F THEN 1900 
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2200 REM—------ en bas a gauche 
2210 X=X-C: Y=Y+1 

2220 SET(X,Y): RESET(X+C,Y-1) 
2230 IF X=E1 THEN M1=M1+1: J=1: GOTO 2320 

2240 J=0 

2250 GOSU8 2400 

2260 IF NOT POINT(X-C,Y+1) THEN 2210 

2270 IF POINT(X-C,Y) THEN 2290 

2280 1F POINT(X,Y+1) THEN 2000 ELSE 190n 

2290 1F X=F AND Y=46 THEN 1900 

2300 1F Y=46 THEN 2000 

2310 GOTO 1700 

2320 RETURN 

2400) RE mana en enee Re  LS CST 
2410 REM DEPLACEMENT DE LA RAQUETTE GAUCHE 

2420 IF N1=0 AND PEEK(14409)=8 THEN A=23 

2430 NI=N1+1 

2440 1F PEEK(14409)<>16 THEN 2480 

2450 A1=A1+1 

2460 IF A1=47 THEN A1=A1-1: GOTO 2480 

2470 SET(4,A1): RESET(4,A1-3) 

2480 IF PEEK(14409)<>8 THEN 2520 

2490 A1=A1-1 

2500 IF A1=2 THEN A1=A1+1: GOTO 2520 

2510 SET(4,A1-2): RESET(4,A1+1) 

2520 REM DEPLACEMENT DE LA RAQUETTE DROITE 

2530 IF N2=0 AND PEEK(14392)=2 THEN A=23 

2540 N2=N2+1 

2550 1F PEEK(14357)<>64 THEN 2590 

2560 A2=A2+1 

2570 IF A2=47 THEN A2=A2-1: GOTO 2590 

2580 SET(124,A2): RESET(124,A2-3) 

2590 1F PEEK(14392)<>2 THEN 2630 

2600 A2=A2-1 

2610 IF A2=2 THEN A2=A2+1: GOTO 2630 

2620 SET(124,A2-2): RESET(124,A2+1) 

2630 RETURN 

2700 REM--—-—— mme ans 2eme 
2710 REM AFFICHAGE DES RAQUETTES ET DU SCORE 

2720 FOR 8=1 TO 46 

2730 RESET(4,8) 

2740 RESET (124,8) 

2750 NEXT 8 

2760 U=RND(2): Y=22 

2770 FOR A1=21 TO 23 

2780 SET(4,A1) 

2790 NEXT A1 

2800 FOR A2=21 TO 23 

2810 _SET(124,A2) 

2820 NEXT A2 

2830 PRINT988,M2; :PRINTA100,M1; 

2840 RETURN 
9000 REM---- 
9010 REM TEST SUR LA REPONSE 
9020 RS=INKEYS 

9030 IF R$="" THEN 9020 

9040 IF R$<>"0" AND RS<>"N" THEN 9020 

9050 RETURN 
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IL M'ENERVE À 
GAYEST IL, m'a 
M ENERUÉ 
TANT PIS Te 


qu'est déterminée la direction de la 
balle. Le court de tennis occupe 
toute la hauteur de l'écran (ordon- 
nées © à 47) et presque toute sa 
largeur (4 à 124). Lorsque la balle 
heurte les bordures inférieure ou 
supérieure du terrain, ou encore 
une raquette, elle rebondit avec un 
angle Variant entre 90 et 140° en 
fonction de sa vitesse. Aux lignes 
750,950, 1 150 et 1 350, l'ins- 
truction POINT vérifie si le pro- 
chain segment situé sur le par- 
cours de la balle est ou non allumé. 
Sirc'est le cas, le rebond s'effec- 
tue, sinon la balle continue sur sa 
trajectoire. 


Pour ajouter un peu d'imprévu 
dans le déroulement des parties, 
on"a réservé un cas où la balle 
rebondit de tout autre facon : lors- 
qu'elle heurte l'extrémité d'une ra- 
quette, elle repart bien en sens 
inverse, mais selon la même droite 
(dans le jargon des joueurs de 
tennis, vous avez fait un « bois »). 


Ce faux-rebond est soigneuse- 
ment organisé aux lignes 770, 
970,1 170 et 1 370. 


lorsque la balle franchit les limi- 
tes extrêmes du jeu sans rencon- 
treride segments allumés (ni ra- 


20 24707 


(]} ET Par ox 
(2MEEE 2 720 64k 
MEME 142 804 32k 


HE 


ALLER MZ 80B 32K 


EMA 162354 128k Fopor 00 * Veg 


de la 


des 
COUPON RÉPONSE 


Adresse 


150 FÉPPS Te - 
2200t OO: 
BEM rc1%51 de pocte net: WT. 


à retourner à BECY 
accompagné du règlement. 


quette, ni bordure), le programme 
saute à la ligne 2 000 pour le 
départ d'une nouvelle balle. Natu- 
rellement, l'adversaire marque un 
point. Les raquettes reviennent à 
leur position de départ et le pro- 
gramme lance la balle dans une 
direction qui est laissée à la fantai- 
sie de l'instruction RND (ligne 
2 030) ; autant dire que l'engage- 
ment se fait n'importe comment et 
qu'il faut être sur ses gardes ! 





SAR GP 250 X 











fo 


waranase | 


* Garantie un an. Port 100 Fi jusqu'à 2500 F 180 F au delà 


CCG 





Le déplacement des raquettes 
est assuré par les sous-program- 
mes débutant aux lignes 1 500 et 
1 800. Grâce à l'instruction PEEK 
qui scrute l'état des touches réser- 
vées à chaque joueur, la raquette 
se déplace aussi longtemps que la 
touche reste enfoncée. 


Deux conseils pour terminer : 


. Tout d'abord, les personnes qui 
n'ont aucune expérience de ce 
type de jeux pourront, bien en- 
tendu, modifier le programme de 
facon à se munir d'une raquette 
immense, ils diminueront d'autant 
le risque de rater la balle... 


Enfin, dans sa Version actuelle, le 
programme se contente de comp- 
ter les points un par un. À gagné le 
premier joueur qui totalise 10. 
Mais au tennis, comme chacun 
sait, on compte d'abord de 15 en 
15, puis ça se complique, et je ne 
parle pas des sets et des manches. 
Rien ne vous empêche de faire en 
sorte que l'affichage des résultats 
respecte les règles en vigueur à 
Roland-Garros. À votre service. 





Marc Aubry 





[7] net: 4): 
8] GP 700 graphique couleur ST: 


9] interfaces, Gé CPM, maintenance. 


INFORMATIQUE 


CONSEIL-SERVICE 


Location-Leasing 
78, Bd Montebello - 
59000 LILLE - Tél. (20) 92.33.06 
ouvert du lundi au vendredi 
de9à12het de 14 à 18 heures 


D OT ou oomœu Nous Fences 
{cocherlacase 
correspondante) 


Signature : 





Pour toutes précisions sur la société ou le produit présenté ci-dessus : Référence 109 du service-lecteurs (page 172) 
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Première parution : L'Oln° 31 


hasse 








les minotaures 


du 


labyrinthe 





Ce mois-ci, nous vous proposons de revivre 
l'une des plus palpitantes aventures de Thé- 
sée. Vous vous souvenez, Thésée : celui qui 
avait réussi à se faire un ami d'Hercule. Rien ne 
l'arrêtait, celui-là. Un jour, il se met dans la 
tête de débarrasser la Crète d'un horrible 
monstre — il n’y a pas d'autre mot — qui dévo- 
rait une douzaine de jeunes athénien(ne)s cha- 
que année, et voilà notre Thésée parti pour la 
Crète. Cette extraordinaire histoire, vieille de 
plusieurs milliers d'années, nous a été trans- 
mise par le bouche à oreille, et il en existe 
plusieurs versions. Celle dont est inspiré le 
programme pour PET proposé ici n'est pas la 
plus connue. 





En ce temps-là, il n'y avait pas 
un Minotaure, mais des Minotau- 
res. Beaucoup de Minotaures. Et 
ce n'est pas étonnant quand on 
sait que ces créatures mi-homme, 
mi-taureau, étaient aussi bêtes 
que fortes : il en mourait beau- 
coup. En fait, il s'agissait de brutes 
défonçant les murs du labyrinthe, 
tellement gloutonnes qu'elles ne 
pouvaient pas se retenir de dévo- 
rer tout ce qu'elles trouvaient. En 
s'y prenant bien, on avait quelques 
chances d'en empoisonner. 


En réalité, quand Thésée est allé 
en découdre dans le labyrinthe, 
Ariane n'était pas au bout du fil, et 
pour cause : sa mère, Pasiphaé (qui 
était une spécialiste de la broderie) 
n'aimait pas du tout qu'on touche 
à ses affaires et elle enfermait 
toutes ses bobines sous clé avec 
un soin qui confinait à la manie. 


Il faut savoir aussi que dans ce 
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‘mauvais payeur : il 


curieux palais, les placards des 
communs regorgeaient de boulet- 
tes de nourriture pour animaux do- 
mestiques (il fallait bien alimenter 
les minotaures). Seulement, le roi 
Minos, le mari de la brodeuse, était 
ne réglait 
jamais ses dettes. Ses fournis- 
seurs, excédés à la longue, lui ré- 
servaient toute leur marchandise 
avariée. Certaines boulettes 
étaient tellement gâtées qu'elles 
étaient franchement toxiques. 
C'est donc les bras chargés de ces 
mauvaises boulettes que Thésée 
pénétra dans le labyrinthe. Ariane 
lui en jetait de nouvelles, toutes les 
minutes par-dessus les murs du 
labyrinthe et Thésée n'avait plus 
qu'à les laisser bien en vue derrière 
lui, et dès qu'un minotaure en trou- 
vait une, il l’engloutissait et ne 
s'en relevait pas. 

C'est exactement ce qui se 
passe dans notre programme. Au 


début du jeu, nous voyons se des- 
siner sous nos yeux un labyrinthe 
dont les détours et les recoins sont 
choisis au hasard (sous-pro- 
gramme 1300-1870). Apparais- 
sent ensuite deux boulettes de 
nourriture empoisonnée (sym- 
bole +), Thésée lui-même (@) et le 
premier minotaure (*). Puis une 
petite musique nous annonce que 
la poursuite infernale débute dans 
le dédale. Bien entendu, pour ceu» 
qui le désirent, le programme es 
entièrement sonorisé. Le monstre 
ne reculera devant rien pour es 
sayer de rattraper Thésée. Il n'é 
qu'une idée en tête : dévorer de lé 
chair fraîche, et la faim le travaillé 
tellement qu'il lui arrive d'emprun 
ter des raccourcis fracassants ; 
certains moments, il fonce têt 
baissée dans le mur et passe 
travers les gravats. 


Naturellement, le plus excitan 
de l'histoire, c'est que vous êtes: 
la place de Thésée.. Pour vou: 
déplacer, c'est-à-dire pour fuir 
vous disposez des touches numéri 
ques 1 à 9. 


Na TN 
RAS 
VAS 
Lt RES 


Le 5 vous immobilise. Quan 
vous vous déplacez dans une dli 
rection donnée (les diagonale 
sont possibles), il est inutile d 
maintenir enfoncée la touche cor 
respondante : vous continuerez 
vous déplacer tant que vous n'ap 
puierez pas sur une autre touche, 





* LE VOYAGE EN CRETE * 
IREM AUTEUR : LIONEL ANCELET 


COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 
CÉTLLL DEEE ELLEELEL EE EEE EEEE EEE EE EEE ETREESEEEENTTEEEnEnerts 


MLES MREM*" INDIQUENT LES INSTRUCTIONS 
A INTRODUIRE DANS LE PROGRAMME POUR 
REM OBTENIR LA PARTIE SONORE OU JEU. 
EM DLS NE SONT PAS NECESSAIRES 


DO REA A A M A ee 
40 GOSUB 1000: REM PRESENTATION 
20 POKE 1,0: POKE 2,0 
O=PEEK(50003) 
240 POKE 59490,60 
250 PRINT'VISIBLE CO/N) ?" 
260 GOSUB 9000: REM TEST SUR LA REPONSE 
1 RS="O" THEN Z=0: GOTO 290 


N=0: a=0 
: B=43 
: REM DESSIN DU LABYRINTHE 


FOR 1=1 TO 24276 
GOSUB 1900: REM BOULETTE 
EXT I 
EMsaE===222= 
HA GOSUB 2000: REM POSITION INITIALE DE L'HOMME 
390160SUB 2100: REM POSITION INITIALE DU MONSTRE 
E HS=PEEK(1) +256*PEEK(2) 
RINTMTEMPS= : MONSTRES DETRUITS:" 
LEè4: C0 
GOSUB 2200: REM FORCAGE DU CURSEUR 
RINT! BOITES DE POISON : SCORE: " 
F Z=0 THEN 510 
EMsz======= 


“TD FOR A=32768 TO 33767 


PEEK(A)=102 THEN POKE A,96 
EXT À 
M=====22222 


=2000: GOSUB 4300 


B 2300: REM MUSIQUE INDIQUANT LE DEBUT DU JEU 


REM AFFICHAGE DU SCORE 
REM DEPLACEMENT DE L'HOMME 
REM DEPLACEMENT DU MONSTRE 


DREAM 2h 2 ee ee re ee ee re A AR AR AR AA 


REM PRESENTATION DU JEU 
PRINT" 
PRINT:PRINT:PRINT 

MOUVEMENTS : 


ENT:PRINT:PRINT 
ENTPOUR LACHER UNE BOULETTE TAPEZ SUR" 
ENT" LA BARRE D'ESPACEMENT" 

PRINT: PRINT 

PRINTMAPPUYER SUR RETURN POUR COMMENCER" 


RS="" THEN 1260 
= ASC(RS) 
F R<>13 THEN 1240 


LABYRINTHE 
BERERESESRRERRELESERESESESERERELERERER" 
ELBRLLERLELRRELSERSE" 


FOR A=32768 To 32806 
POKE 4,160 
OKE 4+960,160 


REM= 

REMXPOKE S9u87, 16: POKE 59466,15 
B(0)=259:8(1)= 340 
B(2)=230: B(3)=220 
DIM AC3) 

REM= = 

FOR T0 33 STEP 2 
REME 

FOR C=1 A0 37 STEP 2 
A=32768+C+40xL 
A(D)=A-1:A(1)=A-40 


1 AC2)=A#1:A(S\=A+40 


AB=INTCS#RNDCTI)) 
A=ACAD) 

IF PEEK(A)=160 THEN 1760 
REM+POKE 59464 ,BCAB) 
POKE A,32 

IF RND(TI)<.4 THEN 1760 


REM=z=z== 


REM*POKE 59467 ,0 

RETURN 

REM=zzsua2222 SR23e 

REM BOULETTE 

E=32768+INT(1N00*RHD CTI) ) 

LF PEEKCE)<>32 THEN 1920 

POKE E,8 

REMAPOKE 59467,16: POKE 59466,15: POKE 59444 ,25 
REM*FOR J=1 TO 100: NEXT J: POKE 59467,0 

RETURN 

REM= 222. 22 
REM POSITION INITIALE DE 
X= INT (1#37*RN0 (TI) ) 
YZINT(1+232RND(T1)) 
CC=32768+X+40%Y 

IF PEEK(CC)<>32 THEN 2020 

POKE CC,H 

REM*POKE 59467,16: POKE 59466,15: POKE 59466 ,50 
REM*FOR 1=1 TO 100: NEXT I: POKE 59467,0 

RETURN 

REM=== S352222= S=zSz==3522322222 
REM POSITION INITIALE DU MONSTRE 
U=LNT(1437#RNDCTI)) 

V=INT(1+23#RND(T1)) 

D=32768+U+40%V 

IF PEEK(D)<>32 THEN 2120 

POKE D, 

REM*POKE 59467,16: POKE 59466,15: POKE 59464 ,250 
REM*FOR 1=1 TO 100: NEXT 1: POKE 59467,0 ê 
RETURH 

REM===22= zzssaszsues2.e 

REM FORCAGE DU CURSEUR 

POKE 245-29%0,L 

POKE 226-2840,C 

SYS(58843-894*0) 


= 


L'Hl 


sanazaz==22== 


MUSIQUE DE DERUT DE PARTIE 
REMYPOKE 59467,16: POKE 59466,15: POKE 59464,200 
REM*FOR 1=1 TO 500: NEXT I 
REMAPOKE 59467 ,0 
RETURN 
REM==2222 ===s232222 
REM AFFICHAGE DU SCORE 
PRINT'"MIDS(TIS,3,2)""RIGHTS(TIS,2); 
PRINT'"RIGHTS(STRSN) ,LENCSTRSCN))=1) 
L=24:020 
GOSU8 2209 
PRENT''M> 
PRINT RIGHTS(STRS(F) ,LENCSTR$S(F))-12;" 
S=INT(N*T1/60) 
L=24:C=0 
GOSUB 2200 
PRINT''"> 
PRINT RIGHTIS(STRS(S) ,LEMÇCSTR$(S))-1)"" 
T=INT(T1/3600) 
IF T>Q THEN GOSUB 3600: Q=7T: GOSUB 1900 
RETURN 

Ssza2suenas222= 


DEPLACEMENT DE L'HOMME 


WMEVALCRS) 
IF W<>0 THEN R=W 


qe R ae 2660,2670,2680,2690,2700,2710,2720,2730,2740 


Y=+1: GOTO 37 50 
: GOTO 2750 
GOTO 2750 
GOTO 2750 
GOTO 2750 
GOTO 2750 
GOTO 2750 

: GOTO 2750 


XP=X+DX: YP=Y#DY 

CP=32768+XP+40+YP 

K=PEEK (CP) 

IF K=96 THEN POKE CP,102 

IF K<>B THEN 2830 

F=F+#1 

REM*POKE 59467 ,16: POKE 59466,15: POKF 59464 ,159 
REM*FOR' 1=1 TO 80: NEXT I: POKE 59467,0 

IF K<>32 AND K<>B THEN 2910 

POKE CC,32 


IF PEEK(515-364*0)=6 AMD F>N THEN POKE CC,B: F=F-1:GOSU8 3400: G0SUB 2400 


POKE CP,H 

CC=CP: X=XP: YzyP 

REM*POKE 59467,16: POKE 59466,15: POKE 59464,85 
REM#FOR 1=1 TO 20: NEXT 1: POKE 59467,0 

IF RNDCTI)<.3 THEN 2620 

GOSUB 2400: REM AFF.PARAMETRES 

RETURN 
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Ssssxs222z2 


IENT DU MONSTR 


3030 DU=SGN(X-U) 

3040 DV=SGN(Y-V) 

3050 6=0 

3060 UP=U+DU: VP=V+DV 

3070 K=PEEK(32768+UP+40%VP) 

3080 IF K=96 THEN POKE 32768+UP+40«VP,192 
3090 1F K=H THEN GOSUB 4000: FF=1: GOTO 3300 
3100 1F K=8 THEN GOSUB 3700: GOTO 3300 

3110 IF K=32 THEN 3210 

3120 1F K<>102 AND K©96 THEN 3150 


3150 G=1: REM DEPL.ALEATOIRE 

3160 DU=1: DV=0 

3170 IF RNDCTI)<.5 THEN DU=0: DV=1 
3180 IF RNDCTID<.S THEN DU=-DU: DV=-DV 
3190 IF RND(TI)>.1 THEN 3060 

3200 UP=U+DU: VP=V+DV 

3210 U=UP: V=vP 

3220 DP=32768+U+40xV 

3230 POKE D,32 

3240 D=DP 





3280 IF G=1 AND RND(TI)<,1 THEN 3160 
3290 GOSUB 2400 


REM4POKE 59467,16: POKE 59464 ,250 
3430 REM======2=== 
3440 FOR 1=1 TO 10 


3460 REM*POKE 59466,0 
3470 NEXT 1 

3480 REM========= 
3490 REM*POKE 59467,0 


3610 REM 

3620 REM*POKE 59447,16: POKE 59466 ,15 

3630 REM*POKE 59464,80: FOR 1=1 TO 100: NEXT I 
3640 REM*POKE 59464,250: FOR 1=1 TO 100: NEXT L 
3650 REM*POKE 59464,90: FOR 1=1 TO 100: NEXT 1! 
3660 REM4POKE 59467,0: FOR 1=1 TO 100: NEXT 1 
3670 RETURN 


3710 REM MONSTRE MANGE UNE BOULETTE 
3720 POKE D,32 
3730 D=232768+UP+404VP 





- 3130 1F PEEK(32768+U+40*VP)=32 THEN UP=U: GOTO 3210 
3140 1F PEEK(32768+UP+40wV)=32 THEN VP=V: GOTO 3210 








3740 TS=TIS: N=N+1 
3750 GOSUB 2400 


3760 REM*POKE 59467,16: POKE 59466,15 


3770 REM=======z= 
3780 FOR J=1 T0 5 
3790 POKE D,40 


3800 REM*FOR 1=250 TO 200 STEP-1: POKE 59464,I: HEXT I 


3410 POKE 0,41 


3820 REM*FOR 1=200 10 250: POKE 59464,I: NEXT L 


3830 NEXT J 
3840 REM=====2222 
3850 POKE 0,46 


3860 REM*FOR 1=200 TO 1 STEP-1: POKE 59464,1: NEXT I 


3870 POKE D,32 

3880 REM*POKE 59467,0 
3890 G0SU3 2100 

3900 11-2000: GOSUB 4300 
3910 TIS=TS 

3920 GOSUB 3600 

3030 RETURN 
4900 
4910 REM 

4920 POKE D,32 
4030 D=32768+UP+40+vP 





4040 REM*POKE 59447,14: POKE 59466,15 


3250 POKE D,M OS 0 Erreur 
3260 REM*POKE 59467,16: POKE 59466,15: FOR 1=200 TO 210 4960 FOR J=1 T0 50 
3270 REM*POKE 59464,1: POKE 59464,255-1: NEXT I: POKE 59467,0 4070 IF PEEK(D)=127 THEN POKE D,255:G0T0 4110 


4080 REM*POKE 59464,100 AVANT LE SAUT EN 4110 
4999 POKE D,127: REM*POKE 59466 ,200 


3300 RETURN 4100 11=20: GOSUB 4300 
3400 REM===== s=s3s: 4110 HEXT J 
3410 REM MUSIQUE INDIQUANT UNE BOULETTE LACHEE #120 





4130 POKE D,87 
4140 REM*POKE 59467,0 
4150 11=1000: GOSUB 4300 


3450 1F PEEK(59466)=0 THEN 3470: REMePOKE 59466,15 AVANT SAUT EN 3470 4160 GOSUB 2400 


4170 IF S>HS THEN HS=S 
4180 POKE 2,INT(HS/256) 


4190 POKE 1,HS-2564PEEK(2) 
4290 PRINT"FIN DE PARTIE! 
4219 PRINT ke TOTALHS" ut 


4220 11=2000: GNSU8 4300 
4230 RETURN 


4300 REM=====2===222222222 
4310 REM TEMPORISATION 


4320 FOR 1=1 TO 11 
4330 NEXT 1 
4340 RETURN 
9000 REM===== 


9020 GET R$ 
9030 1F R$="" THEN 9020 


90460 IF R$<>'"0" AND R$<>'"'N" THEN 9020 


9050 RETURN 





moins, bien entendu, qu'un mur n 
vous arrête. À la différence des 
minotaures, vous n'êtes pas un 
passe-muraille. Quand vous avan- 
cez, il vous suffit d'appuyer sur 
SPACE pour laisser tomber une 
boulette d'aliment toxique. Mais 
ne faites qu'une chose à la fois, 
une seule touche à la fois , et allez 
votre chemin de petit poucet en 
semant vos boulettes. 


. Sur l'écran, un compteur vous 
indiquera en permanence le nom- 
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bre de boulettes qui vous restent. 
Bien entendu, vous pouvez ramas- 
sez une boulette qui traîne par 
terre : il vous suffit de passer 
dessus. 


Le monstre, lui, réagit tout au- 
trement : dès qu'il passe sur une 
boulette, il la dévore. Vous le 
voyez se tordre de douleur et vous 
l'entendez gémir. Puis il disparaît, 
mais il est aussitôt remplacé par 
un autre monstre qui surgit à un 
endroit imprévu du labyrinthe (par 








MANGE L'HOMME 





TEST SUR LA RE 





















































une porte dérobée). Le jeu conti- 
nue... 


Votre score est en permanence 
affiché en bas et à droite de 
l'écran ; il est égal au nombre de 
monstres que vous avez empoi- 
sonnés multiplié par le nombre de 
secondes pendant lesquelles vous 
avez... survécu ! 


Si vous recherchez vraiment la 
difficulté, le programme vous offre 
une option « à l'aveuglette » : vous 
pouvez, si vous le désirez, avoir un 
labyrinthe invisible. Au tout début 
de la partie, le labyrinthe se dessi- 
nera sous vos yeux, puis s'effacera 
comme par enchantement (sic !). A 
partir de ce moment, chaque fois 
que vous ou le monstre, butterez 
contre un mur, le morceau de mur 
apparaîtra. Dans cette version, le 
jeu est beaucoup plus difficile, 
vous aurez donc plus de boulettes. 


Il ne nous reste plus qu'à vous 
souhaiter une bonne chance dans 
votre chasse aux monstres. Ne 
vous affolez surtout pas : on est 
beaucoup plus efficace quand on 
conserve son sang-froid, même s'il 
s'agit de fuir devant un monstre 
affamé qui vous trouve très appé- 
tissant. 


Lionel Ancelet 
ee te 








vraoum | 


es joies de la piste 


et les feux de la rampe 


Prenez un crayon magique, dessinez un circuit 
automobile sur votre écran Pet/CBM. Un laby- 
rinthe de préférence plus un autre encore plus 
compliqué et enfin, un parcours suicidaire. Ajou- 
tez un zeste d'effets sonores. Quatre touches 
suffiront à vous envoyer dans le décor ! 


J=59464 





XXX% CIRCUIT AUTOMOBILE xxx 
AUTEUR : PATRICK CHOQUET 
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REM MAR A AOAA HA HR AH He He AH ee HA AD ee AH ee EE RE 


REGISTRE Di 6522 

REGLE DE JEU 

CONDITION INITIALE 
DESSIN DU TERRAIN 
ATTENTE D'UN CARACTERE 
DEPLACEMENTS 

ACCINENT 

RESULTAT 


G0SU8 
60Sus 
GOSUB 
GOSUB 
GOSUB 
GOSUR 
GOSUB 


1020 : 
1220 : 
113200: 
1520 : 
17200: 
20000: 
1920 


PRINT : PRINT 

PRINT TAB(5) "UNE AUTRE PARTIE" 

PRINT : PRINT TAB(S) ‘DANS LES MEMES CONDITIONS O N?" 
GOSUB 9020 : REM ATTEND UNE REPONSE 


IF R$="0" THEN GOSUB 119000 : 
R=0 :G6GOT0 110 


C=0 : GOTO 140 


RE M # #4 A ke 4e de ee ee UAH De AA ee A A De HA A A HE D ee 
REM REGLE DE JEU 

PRINT''!" 

PRINT TAB(5)"ZZ2Z CIRCUIT AUTOMOBILE Z212" 

PRINT TABCSIMH44H4A4E HE EEE HER EEE EEE EH EEE 

PRINT : PRINT : PRINT PRINT''TAPEZ SUR 4 POUR ALLER VERS LA GAUCHE" 
PRINT : PRINT : PRINT" 
PRINT : PRINT : PRINT" 
PRINT : PRINT : PRINT" 
PRINT : PRINT : PRINT 
PRINT!" BONNE 
GOSUB 10109 : REM SON 
RETURN 


CHANCE 1!" 


CONDITION INITIALE 
PRINT : PRINT 
INPUT"VITESSE DE 1 
V=101-V 
IF V<1 
RETURN 


A 100 KMm/H ‘“:V4 


OR V>100 THEN PRINT"";:GOTO0O 1230 : REM ASCII.145 CCRSR HAUT) 








Même sans permis, vous pour- 
rez essayer le bolide sur l'un des 
circuits que vous propose votre 
CBM. Cependant, il vous faudra 
concentration, réflexes et toutes 
les autres qualités nécessaires à 
la conduite d'une véritable for- 
mule 1. Avant le départ, attachez 
votre ceinture, car après il sera 
trop tard... 


BONNE CHANCE ! 


VITESSE DE 1 A 100 KM/H ? & 


En effet, vous vous en aperce- 
vrez très vite, la partie se termine 
généralement (à dire vrai : à tous 
les coups) par un accident. Mal- 
gré tout, le but du jeu est de 
rester le plus longtemps possible 
sur la piste. 


Le programme commence tout 
d'abord par vous indiquer 
comment vous déplacer. Ainsi, 
vous disposez des touches 4 et 6 
et des lettres A et Z: 


Ensuite, vous pourrez choisir 
votre vitesse initiale, mais atten- 
tion, il n'y a pas de freins. Cepen- 
dant, voici les notations : 

1 conducteur saoûl.. (si vous 
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Première parution : L'Ol n° 35 


nn nee nm mn ne Way 


NYNL3Y 
00021/O£LLL/OOLLL 8NSO9 Y NO 
OZOLL N3HL O=ù 41 

NIVY#31 NG XIOH)I W34 
= H3ù 


NYN13% 
0‘r 33X04 
' 1 1X3N 
1‘f 33x04 
L=- d31S L UL OOL=I 401 


SL‘2+r 3X0d : 9l‘’£+r 3X04d 


0002 0109 :,"SINIOd ,,22, 93AV miNIbüd * INIbd SN, 


0206 0109: f,d'A°S N NO 0, CS)8VL INIUd? 1NIëd N3HL uNu<>S4 GNV ,0:<>Sè 11 
0206 NIHL 4u=$8 11 

$ù 139 

3SNOd3ùu V1 ë8ns 1S31 W38 


RE 
NYN13ù 

2=22 

SN£u WON3Y4 AYLON LS3 713n04 LNdNI : INIüd 

“wi 3802S #N31113Û 47 Z3AV SNOA "OAVUB, LNIUd 

30 1N7139 SYNOPNOL 1S3 3402S #N31113W 371,1NIUd NIHL ZZ=>2 41 
1NIUd © 1NIUd 

Or 3X0d : uSINIOd nn 30 1$3 3#02S 3H#1O0ON, (BL)SUHI (S)8SVL INIUd 
8) 92 4712) WAY : nu LNIYd 


0000! 0109 : 


1 1X3N : OOCL O1 L=1 #01 


1V11NS34 NQ 39VHI111V W34 


EE 


Nun1i3# 


Uz2L 0109 
GZ2L N3HL ou=$8 31 
U’r 3X0d : $Y 139 


1 1XAN : A OL L=1 #03 


LT (W-X) +074 CL=CN-A))+4/942€ 3X0d 
Da+A+X/T 30e : q'X+UY#(L-A)+/9$/2S 3X0d 


gLDLE 
4LOtE 
9toLL 
SLOLL 
GLOLL 
SOOLL 
ü00LL 
OLSCL 
o0sot 
o8LoL 
OZ1OL 
O9LOL 
OSLOL 
oYtoL 
S£LOL 
O£IUE 
OZLUL 
OLLIOL 
suLoL 
O0LOL 
04001 
oooutL 
OSOGL 
OLOGL 
OGCCL 
OUé66 
0866 
0466 
0906 
usu6é 
0Yu6 
0£06 
U206 
ULCE 
oùuCé 
U£Ue 
0202 
otuz 
Uuuz 
U66t 
0861 
0461 
U96t 
Uusét 
OYé6t 
O£é6l 
Seét 
üeét 
SLét 
UL6t 
U06L 
0481 
o96L 
osgL 
UYS8L 
s£el 
4s8t 
sssL 
C£gL 
UesL 
Sig 
OLS8L 
608 
4081 


ougt 


L+9=2 

—-))S8vV=) N3H1 SS>GI6 QHV SS>8 41 
—J3)S6V=) NAHL SS<QI8 NV SS<B 37 
Dé4t N3H1 dI8=8 131 


OUS8L 0109 (e 


L 
L 


UYGL N3HL 9Yy=(X+0y#(L-4)+49425)XN336 11 
N+A=A : W+X=X 


Gégl 0109 
N3H1 Oé=E 11 


N3H1 S9=8 41 


O44L 0109 L=N 
Gi4bt 0109 : 8=018 L-=N 
0441 0109 U=N N3H1 ÿS=8 41 
OZ44L 0109 : 8=01E O=N N3H1 8S=6 11 


x 
\ 4 " CE-)-2SV =8 
si 5 Rene LL W35 


mm mm mm mm mm mm WU 


Naänizu 

OU2f 304 5 dq’X+0Y#(L-A)+2922% 3X0d 

I LX3N : O£ Ol L=I #04 

66° 3X0d : g2l+q"X+UYx(L-A)+/92/2€ 3X0d 
86=Q : Sz=A : GLl=X : OD=Z 

301708 Na IN3W3LON9I12 W3ù 


nn nn nn mme mm mm mm mm mm mm 3H 


NYNn13Y 
re 0 OSSL N3HL uuz=S$E 31 
NOS 3SI1VILINI Waù : 0‘f 2304 
U29L &nSOY NaHL SL=2 11 
L+2=7 

te VAN Sy 139 

U=Z 

3#319VHVI NN:Q 31N311V Wa 


nn mm mm mm mm mm mm W3Ù 


NS 





Nän1i3ù 

OSYL N3H1 Gy=Ckx+0Y+#(CL-A)+4940S)H334 41 
CCLIQNB#SC+LIINI=A à GOLD ANEXCY+LILNTEX 
\ y 1" : 
2 * NIVYU3L1 NQ XIOHI W34 : OGOLL 8NSO9 
“OB3ANNN NN U34V1, (BL) SUHI C(LL)BVL INIdd 
1NIUd ï 1NIëd : 1NIüd 
niNIëd : 1NIUd 

niNlëd © INIüd * 1NIBd : 1NIüd 
n£uCUL)OVL,2n CÉL)UVL, La CÉD)E8VL LNIUd 
1NIdd * INIUd * ,S1INI813 SIN3433110Q “iNIUd : 1NIUd 
uS371 Y3S1IIVNSIA HNOd ON NN ANS #3dVL SINIUd 

0=9 

4719 W3ù : uniNIUd 

NIV3#31 NQ NOI1VHVdIUd W3u 


mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm mm mm mm mm mmmm mme mmmmmmmmmm—— [TN 


t 


u°11N281) 371 ISIOH) 23AV 
“SNOA GNVND # ans #JANddY SIfid 
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NOS 37 313Y4V W3ù : 


S£+n+1°F 
9+44TCL+X)+07#A+29226 
9+£6”X+0Y*A+2922€ 
9+847CL=-X)+07#A+2922S 
+99 CL+X)+U7X CL-AD+29482S 
D+2YX+07#CL-A)+2922S 
+79 CL=X)+0%#CL-ADI+2922S 
S+b2TCL4+X)+07+ (2-4) +292 
+56 X+UYk(2-A)+2942S 
D+247CL-X)+07#C2-A)+2/922S 


"AQVIù 
NYäni3y 09102 
5 SSLUuz 


0‘ 3X0d OSICe 


: SyL02 
N 1X3N OYLOe 
5 S£iue 


1 1X3N O£LDë 
BeL-9=9 


304 
330d 
304 
3Y0d 
3X0d 
3X04 
3X0d 
3X0d4 
3304 
3304 


0etoe 
SLEUZ 
üLtLOe 
tortue 
06002 
0800 
02002 
uS002 
0002 
S£002 
0£002 


e OL L=1 uo1 02002 


5 SLuoe 


gzl=9 01002 


5 SUUOR 


S OL !L=f" 01 00062 


NOILVSIYONOS 13 1N30199v 


=> 3% OOO6L 


5 Ueuét 
W38 OLCeL 


020€1L 

0906L 

osueL 

Nun1i3y SéDel 
n“iNIYd Ye0eL 
uiNIüd £2081L 
“”"iNIUd 28021 
.INIYd Level 
“iNIUd OeOéL 
“INIUd 6tGel 
1NIUd 8LO2L 
1NIüd 21081 
niNIüd 9LUeL 
“LiNIUd SLÜ2L 
“iNIäd YLO08L 
niNIdd £LUeL 
“iNIYd 2L02èL 
“iNIUd LLOEL 
n“iNIbd OLC2L 
“LiNIUd 60CéL 
“iUldd yODéL 
“iHiüd 2002L 
niNIdd SOUEL 
“INIUYd SOCEL 
“iN1ëd +0G2L 
“iNldd £OCeL 
“iNIUd 20CéL 
“iNIädd IGCEL 
“LiNIUd (CCC 
5 OS8LLL 
OZLLL 

‘ O9ELL 
NäN13ÿ SSILL 
“iNIdd YSLLL 
n“iNIHd £SLLL 


“iNTHd 2SLLL 


kg 


CORRE PSE EEE EEE POP TOET OT 


En u C2) 2dSu "nu (YL)9dsu" 


“(02)24$S,," 


Nani3ÿ N3H1 
00Ce1 8nso9 
G£LLL anSO9 


ansoÿ 


un CeL)24S,° 


SLINIUIID S30 NISS3Q 


“wiNIÿd 
1NIëd 
“iNTÈd 
“iNIëd 
“1H1Hd 
“iNläg 
“INT ëd 
“iNIHd 
1N18d 
11NTUd 
“iNIäd 
nLiNTüd 
\1NIBd 
niNläd 
"iNIud 
n“iNTËd 


NüNnizd 
niNIëd 
“iNId 

11N1%d 
niNIäd 
“LlNIUd 
“iNId 


niNIëd 
u“uiNIbd 
“iNIëd 
“iNIBd 
“LiNIUd 
1NIHd 
“iNIüd 
niNIüd 
1NWIHd 
LNIdd 
"iNIüd 
uLiNIUd 
“LlNIUd 
“iNlüd 
wiNIüd 
n1NI Bd 
“iNIüd 
“liHIëd 


: 


DER 


=== WAù 


O2CLE 0109 


O<>4 GUY u#4=$v 
£=8 NIHl ,£,=Sv 
2=4 N3HL ,2,=$5v 
LES N3HI ,L,=6v 
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Remarques 


* Sous cette forme le programme occupe 9 Ko. Si vous supprimez les 
Rem et les espaces entre les mots-clefs ou même un des trois circuits, vous 
serez nettement en dessous des 8 Ko. 


* Il est préférable d'utiliser une interface sonore, ce qui améliore le côté 
« réaliste » de la course. Mais si le son vous gêne, vous pouvez le supprimer 
en tapant, ligne 1980, après la question :« quel est votre prénom ? », une 
Suite de caractères qui mordent sur la colonne 35 de votre CBM. 


* De même si l'emplacement des touches clefs ne vous convient pas, 
agissez sur les lignes 1730 à 1760. 


*. Enfin, pour atteindre une vitesse supérieure à 100 km/h, modifiez le 
programme aux lignes 1230 à 1250. 











Los vessstssse 


ses veusesnes 
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voyez deux ordinateurs au 
lieu d'un) 
25 si vous débutez 
50 c'est déjà mieux 
75 ça commence à foncer 
. 100 à vos risques et périls. 


Le programme vous demande 
un numéro ; vous avez le choix 
entre trois circuits (moyen, très 
difficile, suicidaire). Quand vous 
avez trouvé celui qui vous plait, 
appuyez sur #, et vous verrez 
apparaître votre bolide. Son mo- 
teur tourne et vous pouvez l'en- 
tendre, si vous avez, bien sür, 
branché votre haut-parleur. Votre 
formule 1 n'attend plus mainte- 
nant que vos instructions pour 
partir. Mais, accrochez-voüs, car 
dès que vous rencontrerez une 
botte de paille, votre véhicule se 
désintègrera purement et simple- 
ment. 


Enfin, si vous êtes le meilleur, 
l'ordinateur vous demandera 
quelques renseignements admi- 
nistratifs ; sinon, il vous nar- 
guera, en vous rappelant le score 
et le nom de l'as du volant qui a 
fait mieux que vous. 

Une dernière précision : à cha- 
que accident (toutes les 30 se- 
condes environ), votre ordinateur 
vous demandera si vous voulez 
faire une dernière tentative sur le 
même circuit et à la même vi- 
tesse. 


Ce programme tient sur 9K, 
mais si votre CBM (3 000 ou 
4 000) a une mémoire plus éten- 
due, rien ne vous empêche de 
rajouter un autre circuit. Pour 
cela, il suffit de modifier la ligne 
11005 en ajoutant le numéro où 
commencera le dessin de votre 
nouveau circuit, et d'autre part, 
rajouter une instruction entre les 
lignes 11020 et 11060 pour que 
l'ordinateur sache que lorsque 
vous appuyez sur la touche 4, il 
faut afficher le nouveau circuit. 


Il ne me reste plus qu'à vous 
souhaiter bonne chance... 


Et bonne route 


TAPER SUR UN NO POUR VISUALISER LES 
DIFFERENTS CIRCUITS 


PUIS APPUYER SUR 4 QUAND VOUS 
AVEZ CHOISI LE CIRCUIT. 





Patrick Choquet 
D me 


TT ——————————————————————— — —2.2... 





onte 





alice au pays 
des merveilles 








En 1896, à Londres, le Révérend C.L. Dodgson, 
habile photographe, ennuyeux professeur de ma- 


thématiques et logicien passionné, publia un ou- 
Vrage intitulé « Symbolic Logic », traduit, bien plus 
tard, en français, sous le titre « Logique sans 
peine » (Hermann, 1966). II y proposait certaines 
méthodes propres à déceler « la », ou « les » 
conclusions cachées dans une liste d'hypothèses. 








Les exercices présentés, dans 
lé“ droit fil d'Alice, jaillissaient 
dunivers fantastiques, liés ce- 
Pendant au nôtre par une 
commune logique. 

Voici un exemple de ses exerci- 
ces. 


1Aucun chaton qui aime le pois- 
Son n'est réfractaire à l'étude. 


2) Aucun chaton sans queue n'est 
Prêt à jouer avec un gorille. 


3) Les chatons moustachus ai- 
Ment toujours le poisson. 


4) Aucun chaton amoureux de 
létude n'a les yeux verts. 


5) Aucun chaton n'a de queue s'il 
Mest moustachu. 


… Avez-vous, cher lecteur (ou lec- 
trice), trouvé la conclusion, oh 
Combien logique, de ces cinq pré- 
Misses ? Si oui, vives félicita- 
tions ! Sinon une curiosité irré- 


sé: 


pressible vous incitera, peut-être, 
à poursuivre. 


Les procédés de Lewis Carroll 
utilisaient un ensemble de dia- 
grammes en forme de damiers, et 
des listes d'indices. A cette épo- 
que, vous vous en souvenez, les 
ordinateurs n'étaient pas nés et la 
logique mathématique hasardait 
ses premiers pas. 


Les temps ayant changé, je me 
suis demandé si, en 1982, un PSI 
(petit système informatique), 
convenablement éduqué, pouvait 
résoudre les énigmes, contempo- 
raines du Pays des Merveilles. La 
réponse est positive. Le pro- 
gramme ci-dessous baptisé 
« Lewis Carroll », accepte les hy- 
pothèses, en langage presque na- 
turel, sous la forme suivante. 


a) Classe générale : chaton. 
b) Liste d’attributs ou propriétés. 


logiques 


a —————————————@— 


1) Chaton aux yeux verts. 

2) Chaton qui aime le poisson. 
3) Chaton qui a une queue. 

4) Chaton amoureux de l'étude. 
5) Chaton moustachu. 


6) Chaton prêt à jouer avec un 
gorille. 


c) Prémisses : 
— aucun 2 n'est non 4, 
— aucun non 3 n'est 6, 
— tout 5 est 2, 
— aucun 4 n'est 1, 
— tout 3 est 5. 


Après quelques brefs instants 
de réflexion, la réponse apparaît à 
l'écran ou sur l'imprimante : 

« Aucun chaton aux yeux verts 
n'est prêt à jouer avec un gorille. » 


C'est le bon sens même ! 
Voyons maintenant la structure 
du programme. 





Quelques 
éléments d'analyse 
logique 





Définissons, d'abord, un « uni- 
vers logique ». Il décrit la classe 
générale des êtres ou objets qui 
seront considérés (choses, per- 
sonnes, créatures vivantes, etc.). 
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Première parution : !‘Ol nf 41 


Donnons-nous, ensuite, une 
liste d'attributs ou de propriétés 
de ces objets (avares, joyeux, qui 
attendent, riches aux yeux 
verts... 

A chaque propriété, peuvent 
être associés deux classes : 

— celle des objets de l'univers lo- 
gique qui ont cette propriété 
(classe C), 

— la classe complémentaire (dési- 
gnée par non C ou C) des objets 
qui ne jouissent pas de la pro- 
priété considérée. 

Nous nous limiterons, ensuite, 
à des jugements ou propositions 
liant deux classes A et B. Ils ne 
peuvent être que de trois types, 
visualisés par des diagrammes : 








Tout A estD Aucun À nest B Quelque A est B 





En associant à toute classe C, 


la classe complémentaire C, l'ex- 
clusion peut être ramenée à l'im- 
plication. En effet : 


«aucun A n'est B » 
équivaut à : 
« tout À est non B ». 


En définitive, dans le cadre, li- 
mité, des relations binaires, deux 
types seulement subsistent : 


— l'implication ou inclusion, 
— l'intersection. 
Par ailleurs, à chacun de ces 


deux types, peuvent être toujours 
associées deux relations équiva- 
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lentes, qui mettent en jeu les clas- 
ses et leurs complémentaires. 


implication : 


« tout À est B », 
« tout non B est non A ». 


intersection : 


« quelque A est B », 
« quelque B est A ». 


Les déductions ou raisonne- 
ments ici considérés reposent sur 
deux types de chaînages ou tran- 
sitivités entre relations. 


a) Transitivité forte ou chaîne 
d'implications : si tout À est B, 
tout B est C, tout C est D, alors 
tout À est D. En bref, toute chaîne 
d'implications permet d'associer, 
par une implication finale (conclu- 
sion), les deux bouts de la chaîne. 


b) Transitivité faible : si quelque A 
est B, tout B est C, tout Cest D, 
alors quelque A est D. Autrement 
dit, toute suite de relations, 
commençant par une intersection 
et suivie d’une chaîne ininterrom- 
pue d'implications, permet de 
conclure à une relation d'intersec- 
tion entre les deux extrémités de 
la chaîne. 





Graphe 
des 
relations 


A toute classe C, définie par 
une propriété ou un attribut, nous 
pouvons associer deux points 
d'un graphe représentant : 

— l'un, la classe C elle-même, 
— l'autre, la classe complémen- 
taire C. 

Toute relation binaire entre 

deux classes X et Y (ou leurs 











complémentaires) se traduira par 
deux arcs équivalents : 


a) Implication : deux arcs en traits 
pleins 
X — Y 


Vies mme NX 


b) Intersection deux arcs en 


traits pointillés 


Exemple . 


Le ‘graphe représentatif des 
trois relations suivantes : 
« quelque A est C » 
« tout Best C » 
« tout C est D» 
apparaît ainsi : 











Le graphe traduit, exactement, 
les prémisses. Reste à formuler 
une méthode systématique et 
sûre (un algorithme) pour trouver 
la ou les conclusions. 


Pourrait être appelée « conclu- 
sion » toute relation nouvelle, 
symbolisée par un arc supplémen- 
taire du graphe, créé en applica- 
tion des règles de transitivité 
(forte ou faible) plus haut énon- 
cées. 


De ce point de vue, les chaînes 
d'arcs : 

A — D — B 
etA ---=,.C —= E 
entraineraient : 

A —+ B 
et At==='"E 
quelles que soient les situations 
respectives des points dans le 
graphe. Ce jeu autoriserait, sou- 
vent, nombre de conclusions, 
certes vraies, mais sans intérêt 
majeur. Nous définirons le 
concept de conclusion, de façon 
plus restrictive, suivant, d'ail- 
leurs, en cela, Lewis Carroll, qui 
distinguait des « éliminendes » et 
des « rétinendes ». Pour nous, une 
« conclusion » sera caractérisée 
comme suit : 


a) relation nouvelle, donc non 
présente dans le graphe des pré- 
misses ; 


b) point terminal sans succes- 
seur à transitivité forte ; 


c) point initial, au départ d'un arc 


« faible » ou sans ascendant, au 
départ d'un arc « fort ». 





“18 PRINT"": TREK 15)"LEMIS CARROLL" 
M9 PRINT'PRINT"CE PROGRAMME TIRE LES CONCLUSIONS" 
* 90 PRINT"D'UN GROUPE DEFINI DE PREMISSES" 


48 DIM A&C20):OPEN 4,4 


L5Q PRINT'PRINT"ENTREE DES DONNEES" 


68 PRINT: INPUT*CLASSE GENERALE" ;C8 

65 PRINTH4, CS :PRINTH4 

70 PRINT'PRINT'LISTE DES ATTRIBUTS( TERMINEE PAR STOP 2" PRINT 
80 I=I+1 PRINTI;"-")":"): INPUT ACID 

90 IF RAC1)="STOP" THEN 288 

95 PRINTH4,1;"-:";A&C I) 

188 GOTO 88 

200 N=1-1:DIM H8C2#N, 2XN),H1BC2HN; 2XN), TC 2XN), ZC2HN) 
218 PRINTHA4:PRINTHA4 

290 REMAKETEERELEREERELREEE LEE EEEREEEE 

200 REM CONSTRUCTION DE LA TABLE DES RELATIONS 

310 REMXLAEXXL LE OEREERE TL ONOOEONEEHEE 

328 PRINT:PRINT'LISTE DES PREMISSESC TERMINEE PAR STOP )" 
390 PRINT"TYPES D'ENTREECX ET Y=NO.DES ATTRIBUTS >" 
340 PRINT:PRINT"TOUT X (OU NON K) EST Y (OU NON Y)" 
350 PRINT"AUCUN X (OU NON X2 N’EST Ÿ (OU NON Y2" 

360 PRINT'QUELQUE X (OU NON X> EST Y COU NON Y2" 

479 PRINT 

360 K2K+1 

490 PRINT"H-";K;":"; : INPUT H8 

408 IF H8="STOP" THEM 620 

402 REMXLA EEE LEONE DENT 

485 REM ANALYSE DE LA RELATION POSEE 

408 REMKE AREA OEREEEE LEE E EEE ENELETÉ 

410 XémH#: YS="EST":GOSUB 2000 

420 IF 1"@ THEN GOSUB 2290 :C0T0 398 

430 HLN=LEFTSCHS, L-1 ):H28=MID8CH®; 143) 

440 Ke=His 

450 Y#="TOUT" :GOSUB 2000 IF 148 THEN F#=""*:GOTO 490 
460 YS=" AUCUN" -GOSUB 2900: 1F 1430 THEN F#="_":GOTO 490 
470 YS="QUELQUE" :GOSUB 2000: 1F 14) THEN F#="#":GOTO 490 
488 GOSUE 2200 :GOTO 390 

498 GOSUB 2100 IF 1-0 THEN GOSUB 2288 -GOTO 398 ? 
500 X=VALC MIDBC NS, 1 3) 

510 YS="NON":COSUB 2000: 1F 1<)0 THEN X=Y+N 

526 H$=H28 GOSUB 2100: IF 128 THEN GOSUB 2280 :GOTO 390 
538 Y=VALCMIDECYS, I 2) 

540 YS="NOH" GOSUB 2000 IF 1428 THEN Y=Y+N 

SO RENTE LEO EEE LEE 

#55 REM CALCUL DE LA FORME CODEE D'UNE RELATION 

568 REM ET DE LA RELATION SYMETRIQUE 

565 REMRXKACERERE LEE LEE NE EENE 

570 GOSUB 4098 

580 IF F#=""" THEN GOSUB 3090 

590 IF F#="_" THEN GOSUB 3198 

608 IF F#="#" THEN HBCX:YD= "4": H8C VX De "x" 

618 PRINT#4,H8:GOTO 380 

629 H=8:CNDA : PRINT 

630 GOSUB 4308 

1000 REMEEXELERE EL ELEEREELERE TELE EEN EE 

1005 REM CALCUL DES CONCLUSIONS 

1810 REM FERMETURE TRANSITIVE DU GRAPHE DES RELATIONS 
1015 REMRAXLEREEER EEE EEE TER PEN 

1026 FOR J=1 TO 2XN 

1890 F9 

1940 FOR K=1 TO 24N 

1050 1F H#CJ,K)="*" THEN F=1 

1069 NEXT K s 

1070 IF F=@ THEN Ta(J)="A" GOSUB 4189 

188 NEXT J'GNSUB 4608 

1898 H=1:PRINT:PRINT: GOSUB 4300 PRINT 

1092 REMOTE ER EEE EEE ENTER EREHERE 

1995 REM ECRITURE DES CONCLUSIONS 

1898 REMAX EXAMEN ERRLEL EEE RER EELEEE 

1198 PRINTTAEX 15 2"CONCLUSIONS": PRINT 

1110 FOR X=1 TO 2#N:FOR Y=1 TO 24 

1129 COSUE 4000 

1130 IF HISCK,Y3=" " OR X=Y THEN 1220 

1135 1F HISCH,YD="T" AND YCCX THEN 1220 


1140 IF HI#CH,Y)<" "AND H=YC THEN PRINT'HYPOTHESES CONTRADICTOIRES" :COTO1225 


1145 IF HidCx,Yo="Q" THEN 1198 

1150 IF XCæN AND YC=N THEN PRINT*TOUT ";C8+" "4A8C);" EST ";A8CY) 

1160 IF XC=N AND Y2N THEN PRINT'AUCUN ";C#+" "+A8CX);" N'EST ";A8CYC) 
1170 IF X2N AND Y<=N THEN PRINT'TOUT ";C#;" NON ";A&CXC);" EST "AK Y) 
1180 IF X2N AND Y2N THEN PRINT'TOUT ";C8+" "+R8CYC);" EST ";ASCXC) 

1185 GOTO 1220 

1190 1F XC=N AND Y<=N THEN PRINT'QUELQUE ";C8+" !4f8(XK);" EST ":AKY) 
1195 IF X<=N AND YDN THEN PRINT'QUELQUE “;C#+" "4+A8(X);" EST NON "; AC YC > 
1209 1F H>H AND YC=N THEN PRINT"QUELQUE ";C$;" HON ";AGCXC);" EST ";ASCY) 


1219 IFX2N AND Y2H THEN PRINT'QUELQUE :C$;* NON ";ASCXC 25" EST NON "AM YC) 


1220 NEXT Y,H 
1225 PRINTH4 CLOSE4 


1990 REM XKHKESOUS PROGRAMMESKHRKAKEE 


1995 REM 
2009 REM RECHERCHE DE LA POSITION,DANS X$,D'UNE CHAINE YS 
2905 REM k 
2019 1F X8="" THEN I=9:RETURN 
2826 FOR I=1 TO LENCX8) 
2639 IF MIDS(X#,1,LENCYS2>2=Y$ THEN RETURN 
2048 NEXT, 1:1=@*RETURN 
2190 REM 
2 E RECHERCHE D'UN NOMBRE DANS LA CHAINE Xe 
1 


il 
2116 IF X8="" THEN 170: RETURN 
2128 FOR I=1 TO LEN(X8) 
2138 YS=MIDS( 28, 1,1) 
2148 1F ASCCYS2>=48 AND ASCCYS2<=57 THEN RETURN 
2158 NEXT 1: 1=@:RETURN 


2208 REM 
2285 REM IMPRESSION MESSAGE D’ERPEUR 
2208 PI 


EM 
2218 PRINT :PRINT"ERREUR" : PRINT 
2220 RETURN 
2230 REM 
2240 REM CODAGE DES RELATIONS 
2250 REM 
3008 HSCX, Y 2="7" :H8ÇYC, KE 321" : RETURN 
3106 HSCK, YO =": HEC Y,KC = "9": RETURN 
3110 REM 
4000 REM CALCUL DES INDICES DES CLASSES COMPLEMENTAIRES 
4010 REM 
4020 1F X<=N THEN XC=X+N:C0TO 4048 
4830 XC=x-N 
4040 IF YC=N THEN YC=Y+N: RETURN 
4052 YC=Y-N:RETURN 
4068 REM 


4070 REM CALCUL DE LA MATRICE DES CONCLUSIONS 
4080 REM 


4108 K=9:F=û 

4110 K=K+1:1F K>24N THEN 4220 

4120 1F Té(K)<)"A" THEN 4118 

4130 G=0 

4150 FOR I=1 TO 2%N 

4168 1F H#(I,K>=" " THEN 4190 

4170 IF HSCI,K)2=""" THEN Té(1»="A":G=1:F=1 COTO 4198 
4189 1F H8CI,J3C>"#" THEN HIKCI,J2="Q" 

4198 NEXT I'T&KKJ="" 

4200 IF G=Q THEN IF H8CK,J)<2""" THEN H{8CK, J)="T" 
4219 GOTO 4110 

4220 IF F=1 THEN 4100 

4239 RETURN 

4240 REM 

4250 REM IMPRESSION DES MATRICES 

4260 REN 

4300 PRINT" !";::FO0R Ji TO 24XN 

4318 Z=J:IF ZDN THEN Z=2-N 

4315 GOSUB 4500 

4320 PRINT Z8;"|"; 

4330 NEXT J'PRINT 

4335 FOR Ji TO G#N+3:PRINT"-";:NEXT J:PRINT 
4348 FOR I=1 TO 2#N 

4350 2=1:1F Z>N THEN 2=2-N 

4355 GOSUB 4500 

4360 PRINT 28;"l"; 

4370 FOR J=1 TO 2#N 

4380 IF H=1 THEN 4418 

4390 IF HKI,J)="" THEN H#CI,J2=" " 

4400 PRINT H#1,J)+" !";:NEXT J'PRINT:'GOTO 4438 
4410 IF H1#C1:J2="" THEN HISCI,J)=" " 

4420 PRINT H16(1,J2+" !";:NEXT J':PRINT 


4450 

4460 REM FORMATAGE DES INDICES 
4470 REM 

4500 Z#=STRSCZ):26=MIDKZ8,2) 
4510 IF LENZ#)<=1 THEN Z8=284+" " 
4520 RETUPN 


4608 REM 

4610 REM CONCLUSIONS COMPLEMENTAIRES 

4620 REM 

4630 FOR 1=1 TO 24N:FOR J=1 TO ZXN:ZC(J)=0 NEXT J 
4640 FOR J=1 TO 2XN 

4650 IF HI8CI,J2="T" THEN ZCJ)=J 

4668 HEXT J 

4678 FOR Je1 TO 24N-1 

4668 FOR K=J+1 TO 2#N 

4698 1F ZCJ>=J AND ZCK)=K THEM H18J,K3="0" 





L'algorithme de recherche des 
conclusions comprend donc les 
Phases suivantes : 


ä) rechercher les sommets termi- 
naux, c'est-à-dire, sans succes- 
Seur lié par un arc « fort » ; 


b} à partir de chaque sommet ter- 
Minal, « remonter » le graphe, en 
déterminant tous les ascendants 
de ce sommet, jusqu'à rencontre 
des points sans ascendant ou des 
arcs faibles ; 


-c) écrire les transitions résultant 
des règles de transitivité, c'est-à- 


F1 


dire tracer les arcs nouveaux. 
C'est une forme du processus ap- 
pelé par les mathématiciens « fer- 
meture transitive du graphe » ; 


d) éliminer les éventuelles 
« conclusions » de ce type déjà 
présentes dans le graphe initial. 


Ainsi, les conclusions tirées du 
graphe très simple, pris, plus 
haut, en exemple, seraient: _ 

sommet terminaux : À, À, B, D, 


conclusions : D —.B, 
AE DUBESD 
Certaines conclusions, on le re- 


marquera, sont équivalentes, par 
exemple ici : B D et D B. 
Nous n’en présenterons qu'une. 
Notre ensemble de règles peut 
être complété sur un point parti- 
culier. 
Les relations : 

« tout A est C » 

« tout A est D » 
entraînent, à l'évidence, que les 
classes C et D ont une partie 
commune, savoir À. En consé- 
quence, la relation « quelque C est 
D » est une conclusion valable, qui 
doit être ajoutée à la liste. 
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Le jeu, ici décrit, pourrait, en 
principe, nécessiter seulement un 
crayon et beaucoup de papier. 
Lewis Carroll l'aurait sûrement 
découvert, s'il avait connu la théo- 
rie des graphes. En pratique, pour 
un nombre même restreint de pré- 
misses, la combinatoire des arcs 
devient vite pénible et, bien sür, 
l'ordinateur arrive à point, pour 
nous aider. 


Représenter 
données, et phases 
du programme 


Les points importants, pour 
une bonne compréhension du pro- 
gramme, concernent la représen- 
tation des données et l'algorithme 
de calcul des conclusions. 


Après indication de l'univers lo- 
gique (ou classe générale) consi- 
déréle), la liste des N attributs est 
entrée, sous forme d'une table 
A $ (1). 


Le graphe logique, traduisant 
les hypothèses ou prémisses est, 
comme il se doit, transformé en 
une matrice H $ (I, J). Chaque 
attribut (de numéro X) crée deux 
classes complémentaires d'indi- 
a (de 1 à N) et XC (de N+1 à 
2 N). 


Symboles utilisés : 
H $ (1, J) = « À » signifie « classe | 
incluse dans J » 
H $ (1, J) = « * » signifie « classe | 
intersecte J » 


Chaque prémisse engendre 
deux relations équivalentes, de 
cette forme. Par exemple, s'il y a 
10 attributs, l'hypothèse : 

«tout 3 est 5» 


donne : 


H$(3,5)=«{vetH$(15, 13) = 
«À» 


La première partie du pro- 
gramme (instructions 10 à 630) 
réalise une analyse syntaxique 
des prémisses, afin de construire 
et d'écrire la matrice H $ équiva- 
lente (interprèteur très simplifié). 


Une autre matrice H 1 $ (I, J) 
représente les conclusions, selon 
le codage suivant : 

H 1 $(X, Y) = «T » signifie « tout 
X est Y » 
H 1 $ (X, Y) = « Q » signifie 
« quelque X est Y » 


Les instructions 1100 à 1220 
traduisent ces relations finales en 
un français approximatif, mais, je 
l'espère, compréhensible. 


Le cœur du programme est l'al- 
gorithme de calcul des conclu- 
sions, ci-dessous détaillé (ins- 
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tructions 1000 à 1080 et sous- 
programme 4100). Il utilise le 
marquage, par un « À » de tous les 
ascendants d'un sommet donné. 


A) POUR toute classe d'indice J 
de1à2+N: 


Si J a un successeur fort, ALLER 
en B) 


SINON : T $ (J) = « A » : ALLER au 
sous-programme C) 


B) SUIVANT de J 


C]) indice colonne K = 0 : drapeau 
F=0 


D)K=K+1:SIK2>2*N, ALLER 
en F) 

SIT $ (K) # « A », ALLER en D) 
SINON : drapeau G = O0 

POUR indice ligne | de 1à2N 
SIH $ (1, K) = « Ÿ », ALLER en E) 


SI H $ (1, Ki = « À », T $ (1) = 
«{A»:G=1:F=1:ALLERen E) 


SINON,H1${(1,J)=«Q» 
E) SUIVANT de | 

TP (K)=«» 
SIG=0,H1S$(K,J)=«T» 
ALLER en D) 

F)SIF = 1, ALLER en C) 
RETOUR 





Seuls les agents 
de police du secteur 
sont des poètes 





Le programme « Lewis Carroll » 
a été écrit pour un CBM, muni 
d'une imprimante. Cela permet de 
garder trace des hypothèses, des 
conclusions et des matrices H $ 
(1, Jet H1$ (1, J). 


Pour travailler sans impri- 
mante, il convient d'apporter les 
modifications ci-dessous : 


Instruction 40 : supprimer OPEN 


Instruction 65 : supprimée 
Instruction 95 : supprimée 
Instruction 210 : supprimée 
Instruction 610 supprimer 
PRINT#4,H$ 

Ein 620 : supprimer CMD 
1225 


Instruction supprimer 


PRINT # 4 


Afin d'exercer vos capacités lo- 
giques et de nourrir le pro- 
gramme, je vous propose 
l'énigme suivante, en provenance 








Liste des variables 






A$ 1) = table des attributs 

















H$I,J) = table des symboles définissant les 
relations entre classes, selon les pré- 
misses indiquées. 

H1$11,J) = table des symboles définissant les 
relations entre classes, selon les 
conclusions calculées. 

T{) = table intermédiaire des ascendants 
d'un sommet du graphe. 

Zi} = table intermédiaire des indices uti- 
lisés pour le calcul des conclusions 
complémentaires. 

C$ = classe générale. 

F,G,H = drapeaux 

F$ = type d'une relation entre deux clas- 
ses. 

H$ = chaine de caractère contenant une 
hypothèse ou prémisse. 

H1$,H2$ = fragments de la chaine H $ analy- 
sée. | 

N = nombre des attributs. 

X, Y,XC, YC= indices de classes et de leurs 
complémentaires. 

X$.Y$S = variables intermédiaires des sous- 





programmes d'analyse de chaines. 
2,25 = indices courants d'une classe et 
chaine associée utilisés dans le sous- 
programme d'impression des matri- 











Lena, 
directe de Lewis Carroll : 
1. Tous les agents de police du 


secteur dinent avec notre cuisi- 
nière. 
2. Aucun homme aux cheveux 


longs ne peut être autre chose 
que poète. 


3. Amos Judd n'a jamais fait de 
séjour en prison. 


A Les « cousins » de notre cuisi- 
nière aiment tous le gigot froid, 


5. Seuls les agents de police du 
secteur sont poètes. 


6. Seuls ses « cousins » dînent 
avec notre cuisinière. 


7. Les hommes aux cheveux 
courts ont tous fait un séjour en 
prison. 


Conclusion ? 


Bonne chance |! 





René Descamps 
on 








exotique 





et si on jouait 
à l'Awalé 
sur TRS 80 £ 





L’'Awalé, bien que peu connu en Europe, est l’un 
des jeux les plus répandus dans le monde. Il se 
pratique dans presque toute l'Afrique. On le 
retrouve sous divers noms et parfois sous diffé- 
rentes Variantes. C'est la variante du pays 
Baoule (Côte d'Ivoire) qui vous est proposée ici, 
accompagnée d'une liste en Basic, pour TRS-80,. 
Bien que de réglementation souple, ce jeu vous 
permettra de développer des trésors d'intelli- 
gence tactique et les stratégies les plus élaborées. 








Le matériel est très sobre : un 
« tablier », généralement une 
planchette de bois, dans laquelle 
ont été sculptées quelques alvéo- 
les (le plus souvent douze pour le 
jeu lui-même, quelquefois deux de 
plus pour amasser les gains), et 
des « graines » qui peuvent être 
des grains de café, des haricots 
ou simplement des cailloux, au 
nombre de quarante-huit. 





EEE) 
CAE 
cd e # 






où fus Simplement : 


lefslzlslale 
élelel4]41e] 


Ce jeu se pratique à deux. 







Chaque rangée de six alvéoles 
représente le camp de chaque t 





jeu d'Awalé est connu en Afrique sous différentes appellations ét il en Joueur, que nous appellerons S 
iSte énormément de variantes. On parle ainsi d'Awélé au Sénégal (la Nord et Sud. pr 
anche possède alors deux rangées de six cases), de Gissono au Burundi ou F 4 ë 
Bao en Tanzanie. Dans ces deux derniers jeux, la planche comporte alors En début de partie, chaque = 
jatre Aide de huit A À remarquer que ces jeux, qui sont à l'Afrique case contient quatre graines. ë 
2 que les échecs sont à l'Europe, ont été créés initialement à l’ouest de au & 
MAfrique sous une forme simple et que règles et damier Se sont progressive- Fe : FR AE Note EE Sud) Ê 
. MEnt sophistiqués en suivant le sens des grandes migrations. peut être lire au sort ou laissé au & 
“a Choix des adversaires. à 
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Les règles sont également très 10 CLS + CLEAR T0Q ‘ED 





20 PRINTTAR(1E) on # + Ÿ # MON HE M Mi HU ZA 
simples : 79 PRINTTABLIE) “ a d'a Le sit ee 
1} Sens du jeu : le jeu se déroule | ae smintraeuie + JEU TRADITIONNEL aFRicnmn 4" 54 
dans le sens inverse de celui des EQ A1S="!"ASTRINCES(S, 35) : Bite" MARLIRITARL SQL AI SAIT © Dj 
aiguilles d'une montre. RE AN Ce D UE ee N HR ARR URRS PS PANNE Êe EE) 

ED AZ#E= "I" STRINCGECO, 455 2 Bibe" MATE ALGERIE AIRIATSEAAQTEENIS 5 OR 

1 je : 188 DEFINT C-J,N ‘? 2E 
2) Déroulement de la partie : les 119 DIM DC12),C1012), 020129, 03012), Ca (129 DICLED, DZ CID DT CT EU 1220 GLCIZN GE CL 
adversaires jouent alternative- 2 ‘ E1 
à 1SOkEOR J=1 TO 12, 2 Cildsd ? C1CI)24 GSANEXT * 749 

ment, chacun prend à son tour 200 PRINT a 300, CHRS(T1) : PRINT "NIVERU DE JEU CHOIËT : TAPEZ 4 , 2 QU =" 
toutes les graines contenues dans ce 





, 210 NIS=INKEYS : IF NIS="" OR NISC":i4 OR NI "7" GOTO GOSUE 506 ©?” 71 
l'une quelconque de ses cases et 220 PRINT à 877, "VOULEZ-VOUS COMMENCER à PTS 








les sème, une par une, dans le 230 PRINTTAB(S) "OL ME LAISSER CE CHOIX 2" 00 CD 
i j = 24@ KIS=INREYS : IF Ki$6)"1" AND K1%t) "2" GOFD 240 i 
sens indiqué (on parlera de SELS EE NS PONS A PES NA 
« semis »). 260 IF Kit$="2" CJ=RND(E)+6 : GOSUR 2700 : GOSUB 500 * CZ 
' A Le : 270 GOSUB 1900 : GOSUB 500 : GOSUE 2900 : GONSUB SO ? 52 
Si la case jouée contient plus 280, 6070 270 * CI 
: : 897 ! or 
de onze graines, le joueur effectue US. PSN CUS CA, DRE + Se 
un second tour, en sautant sa 433 ? ï oc 
4 SDQ PRINT 9 220, ""+3 ©‘ D9 
case de départ. SAONE ue 
—————_— 560 FOR I1=0 10 1 25 
La 4 550 PRINT EB1$ : PRINT E2%$ : PRINT ERz4 * SE 
Des grains de café, des SéQ NEXT : PRINT à 294, "3; " DS 
" n 570 FOR I=i T0 6 : PRINTUSING "#H####h"s [3 =: PARINT " MEL NEXT 
haricots ou des cailloux, 580 PRINT à 256, ""; * ©0 ; 
. A 590 FOR 1i=12 T0 7 STEP -1 : PRINTUSING UHÉHHHHHMUS; I: = PRINT " s018 NEXT  ! 20 
une question de goût 60 15-2 : 13=CJ * @E 
610 IF I2=12 THEN [2=0 ‘ UE 
: : F : 620 IF 12()CJ-1 GOTO 650 ‘ 29 
3) Prise : si, lors d'un semis, un 62@ IF JOUEURS="MOI" PRINT 9 S584+1@+CI3-INT(IZ/E)#B-192#INT(IZ/E), STRSC(IT41) 
i 4 ià ñ 3 ©: GOTO 790 : 1D 
sa dépose xd dernière ue E4Q PRINT 9 S4+1@0S—CIT-INTCIZ/Er#6))-192#INTCIZ/E), STRHCCU IT LI) 5 : GOTO 790 
ns une case adverse contenan * 4A 
ges : : ESQ I1=INT(IZ/E) : IZ=13-114E : IF Ii=1 I2=S-1> * 10 
déjà une ou deux graines, il prend EU N=INTICÉIT+1)/E)+1 ? R=CCIS+1)-INT(CUIZ91)/E)sE * D 


alors tout le contenu de cette case 670 IF N=1 GOTO 750 * S% 


(deux -ou.trois..graines).et.le.dé- | Éteue core se +7 "re" 27 NUL à NEXT CES 

pose dans la case reservee à Ses 700 FOR i4=9 TO 5 : SET(S#D+l4+20#12,28-9#111 : NEXT SF 
Ë 710 IF N=3 GOTO 750 * 24 

grains. 720 FOR I4=Q0 T0 5 : SET (4+2+14+20+12, 23=3#]1) à NEXT - ! 8B 
n Sr 7:20 IF N=4 GOTO 750 ?’ 15 

Si la case précédant celle de la 740 FOR I4=@ TO 5 : SETIS+2w144+2D#17,7@-94#11) : NEXT ‘ 7E 
prise est dans le camp adverse et 750 1F.R=@ GOTO 770 * FF 


contient deux ou trois graines, ces FORI4=BTOR-1 : SET (— Ne Z2ORN=4 #5 CN) ZANDN 0 4 a+ ZA LA #T ON IZ, 2E4N- 9411) 2NEXT 





















































dernières sont également prises, BGANT F DR lente Arme STRHCCUITHLDIIE 63 
. n : : > ZT=17+ 3 15=15+1 € S(12 GOT0O 61@: ? 73 
et ainsi de suite, jusqu à ce que 90 PRINT à 246, "GAINS : PRINTUSING "Hi"; Gi: * Al 
l'on se trouve en présence d'une PRINT à 822, MOAINS :"5 : PRINTUSING "###"; GJ4 NN 129 
case nous appartenant en propre | 2315 17 (7 AND SES REICRE ue 7c 
ou vide où contenant plus de trois | : sf bat FINDE PARTIE  wn É 
graines (ou que cette prise nous 200 PRINT D 857, ""iCHRat E ÉST FINIE" "E7 
place dans le cas 4, auquel cas il à I E PASS + G0TO 93Q ‘, @D 
faudra jouer une autre case). 1 39 
4) Nécessité de donner à « man- pe 
ger » : il peut arriver, en cours de tits À MOI DE JOUER, #44 
partie, qu'un joueur possède 1 14 
toutes les graines de son côté. Il 10 POI Fee CR ANUE QUEECEC ERP EURE ZEND EN RE 
7 êR iw:0 FOR 5 OUT 255,1 : OUT à : NEXT AE : 
doit alors (s'il le peut) jouer une 10%0 CJ : 1F)CUse"" GOTO 2020 ELSE CJeVAL(CJ#) : PRINT CJ * 28 
case donnant la possibilité à son LEE. El 
à 5 “ 1100 1F CJ)0 507190 1200 ‘ 40 
adversaire de jouer à son tour. En 1118 PRINTYABUS) CETTE CASE N'ÉKISTE PRSt + 5ôcuE 00e. » 1c 
2 i à == 1129 PRINT CHR®&(27), CHRSC27%, CHARGITQ) : GOTO 1000 ? FD 
cas d oubli de cette règle de cour RINT CHRS 1273, CHR 127); CHAELEQ) : G079 1020 Fi 
toisie, il conviendra de la rappeler, ’ ab 
n n C1<7 G9OTO 1:00 ? DZ 
sans sanction, au Joueur "ABRIS M"OCETTE COSE M'APPARTIENT" : GOSUE :0000 ! 77 
« étourdi » qui devra recommencer INT CHR#(27), CHRSC27), CHRS(TQ) : GOTO 1209 ? 39, 
ES 
son coup. ea icer0 mA: Nos 
à Li h a EN ARTS) CETTE CASE EST VIDE" : GOSUB 32000 L ER 
Cette règle S appliquera de € INT CHARS (2 NE AS Z@) : GOTQ 1008 T4 
même lorsqu'une prise éventuelle 330)8) USE TER ga 
démunit totalement l'« adver- | 1599 #2,:,505 070 Le: DES ALES 
Saire » : on renoncera alors à OR 1-1 TD Ces IF C(N7-1 NEXY + GOTO 1502 LCD 
celle-ci Rte D, 3 me DONNER A A 5: À GOSUE 60000 ? 9x 
sé np#C7), CHRSC27), CHRSCTQ) à 0 1002 ©? FC 
5} Fin de partie : dès que l'un des D) + NEXT : G0SUB 20000 ‘ Es à 
joueurs totalise un gain supérieur S+F(1) 3 NEXT ? Ea 
à 24, c'est lui le vainqueur. 
Si l'un des joueurs est dans Re D es cree DENIS RTE UE 
l'impossibilité de jouer (toutes ses pese A0 Dre EE AUS FETES UNE AUTRE CASE GOSUB :9000 Te 
A A . RINT "VOUS POUVEZ © Vi à JOUE H CASE" : 3 z 
cases sont vides), il reçoit alors PRINT CHRS(27)3 CHRS (27); CHRSUZO) : LOTO 1000 ? ED 
L : BE 


une graine, son adversaire ajou- 
tant à ses gains les graines res- 
tant dans son camp (le vainqueur 
est aussi celui possédant le plus 
de graines). 


1600 PRINTICHRE: 275, CHRE(TQ) ; "LA PARTIE EST FINIE" ! S£ 
Z'20GI=GJ+C0I) : NEXT 2 24 
L+i : GOSUE 500 ‘ D 
1650 ELSE IF GJ{GL GOTO 1660 ?! Wa 

ISONS MATCH NUL "3 GL:3 " A "5 GJ : GOTO 167 ’ F3 
GAGNEZ PAR "5 GJ5 "A “5 GL : GOTO 1670 ? E7 
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Al 1660 PRINT "JE GAGNE PAR "; GL; “ A "3 GJ ‘” SA 
1670 PRINT 9 257, ""; : PRINTUSING “#HH"; GL : PRINT 9 829, ""; 


MUSCJ ? 79 


1660 PRINT à 369, "TAPEZ UNE TOUCHE POUR UNE NOUVELLE PARTIE"; 


“7670 RER INKEYS : IF KE$="" GOTO 1690 ELSE ig ‘” gg 
1639 ? 


1700 FOR I=i TO 12 : FUiieCtj) 5 NEXT : GOSUB 20000 : GJ=6J+6M0I 


740 FOR I=i YO 12 : ÉCI)=FCI) « NEXT ‘GE 
1720 RETURN ©? PQ 


D 
Pr 
) 
re 
2 


4404 













SHAB(TD)T LE 


Le N NÇOR GET VC 


BAINT à CHRSCZ10 5 
; Diét 
ÉOTD 66: re 
J 2t011=0 THEN G1(C z 1 62 
IF CitOtrr6 AND CL(C1) (2 ht THEN Gi(Ct)=-1 ? 















11 TO 18 : FCl)=CI1CI) 2: NEXT_ ZA 
C JOUEURS="TRS" : GOSUB 2Q00W : IF GL+CTRS(25 GOTO :100 
F TO 32 + CCI1)=F CI) : NEXT : GLrGL+GTRS : GOTO 500 
S-@ : FOR J#1 TO E 5 GES+F CIN : NEXI SL 40 
if SxQ THEN GicCi)2=0C1(C1)-25 à GOTO 2700 ©‘ FS 
Syco GiCC1)=GICCI)AGTRS * 54 


G1 (Ci )=G1(C1)- 2 EC 


1776 
sCJodbeize 1,33 
EUR ISLE <OPSTEP EL, 2" 209 
iF GiCI)461(CJ(13) GOTC 2530" 77 
F6 Gicii)GACCJ(1)) THEN CJdI=I : H1i=1 : GOTO 2550 
Hi=Hi+i 3 CJ(Hiier ©”? 97 
3 He RNDCH1) : CJ=CJIH) ? pq 


Z 1 CiJ)=fCI) # NEXT : GLEGL#GTRS ? A1 


LUS REPONSE EVENTUELLE CRIE 


3000 FOR ix1 10 12 : Diétl)=F(T) 5: NEXT ‘? &E 
010 FOR I1=1 TO & : G2(I)eQ : NEXT ‘© SD 





5020 FOR C2=1 ©: 3 PRINT Q 552+(C1-7)#2+CZ7, "55 CHRSUT1); 
70:0 FOR 1J- # C2(1)=DICI) : NEXT 41 

040 S=9 TO 12 3: SeS+#+F(1) : NEXT ‘ EA 

Zoe IF C2CC2)=0 GZ(CZ)=-2E ; GOTO 31:00 ©‘ EE 


5060 IF S=Q AND CZ(CZ)(7-C2 GOTO 33:00 ? 6A 
307a FOR J1=1 TO 12: F{I)eCZU0I) : NEXT ©” 4€ 
3082 CJ=C2 : JOUEUR$="MOlI" : GOSUB 20000 ©‘ 22 
090 S=9 : FOR 1=1 TO 6 : S=G4F(1) 5: NEXT ? ÆEA 
uGiva IF S=0 G0TO 32:00 ELSE GZ(C2)=GMOI ‘ 8F 
140 IF N1S$)"2 
17150 GZ(C2)=G£(C2)-67 ‘ 08 








300 NEXT ©‘? 99 4 
3497 " 
349e ? MEILLEUR CHOIX 
h z493 ? 
ÆSQQ HZ=1 : CJ(i)=1 ‘ 7€ 
2510 FOR 1=2 TO &: ” 79 
252 IF GZCI) (GZ2(CJ(1)) GOTO 3550 ©! 68 
255 IF G2CI))}GZ(CJ(12) CJC1)=7 3: MZæel : GOTO Z550 ! SF 
3540 H2=H2+1 : CJCH2)=I ‘ ÀE 
5550 NEXT : GZ2=GZ2(CJ(H2)) ” E4 


5970 G2=G2(CJ(H2)) ? 931 
Z60Q RETURN ©‘ SD 


399 DLL COUP SUIVANT LEE 
5999 ‘ 
4000 FOR 1=1 T0 iz 
4218 FOR 1=7 10 12 
4020 FOR CI=7 TO i 3 
4970 FOR 1=1 TO 12,2: CICI)=DZ2CI) : NEXT © 53 
424o S=0 : FOR I=1 T0 € : S=S+F(1) : NEXT ! E1 
4250 IF CT(C3)=@ GECCT)=-25 : GOTO 4:00 * 75 
4QEQ IF S=Q AND C3CCT) (17-CT GOTO 4:00 ©‘ 4D 
4070 FOR i=1 TO 12 » F(J)=C3(1) ,:. NEXT ! SE 
4200 CJ=CZ : JOUEUR$S="TRS" : GOSUB 29080 
4030 S=0 FOR I=7:T0 12 : S=S+F (1) : NEXT ©? 4C 
4100 IF S=0 GOTO 43:00 ELSE GZCCS)=G3CCI)+GTRS * 7€ 
MATGQ NEXT ©‘ SD 














4497 

4ase ? MEILLEUR CHOIX 
46499 ? - 

\4S0Q HI=1 : CJ(12=1 À EE 

6510 FOR I=11 TO 7 STEP -1 ‘ 91 


» 4570 1F GSCI) (GS (CJ 12) GOTO 4550 * 93 


4530 IF GSCI)>GECCJÉ1)2 THEN CJC1)=I : Hi=i : GO10 455Q ? 


2560 HI=H3+1 : CJCHI)=IT ! E9 
4550 NEXT : GZ=G3(CJCHIS)) ? FS 
4EOQ RETURN ‘ ES 


1999 Hootot SEMI #AHA 
153999 ! 
20000 CX=CJ+F (CJ)-(F(CJ)) 11)2-(FCCJ))271 : GTRS=0O : GMOI=Q 
20019 FOR 1=CJ+1 TO CX ‘* @E 
20020 J=1. ? 16 
20050 J=J-INT(J/13)#12 ? IF J)12 GOTO 20079 ‘ se 
20040 1F J=CJ GOTO 20062 ©‘ AA 
29050 FE(J)=FCJ)+1 ”* CB 
… 20060 NEXT : FiCJ)=9 ©‘ 6C 
20070 IF JOUEUR$="TRS" GOTO 20180 ‘* 2D 
200E0 IF J(7 OR FCJ) (2 OR-FCJ))3 RETURN ? 53 
20029 GMOI=GMOI+F(J) : F(J)=@ : J=J-1 : GOTO 20082 ? DA 
20190 IF JE OR F£J)42 OR FCJ)>3 RETURN ‘ 42 
20110 GTRE=GTRS+F(J) : F(J)=Q : J=J-1 : GOTO 20100 ‘ A5 
29399 
50009 FOR I=0 TO 522 : NEXT : RETURN ’ AD 


(7 
IF de A AND E1(C1 413-Ci THEN G:(Ci1r=61(C1)-50 +: GOTO 2:00 


1F (NES Fe NC GOSUR 3000 ELSE GOTO 2700 'oertes eventuel les 


"+ CHR$CZ@) 5 "A MOI DE JOUER ‘5 CJ : GOSUR 3 
FKJo=Cit]) : NEXT : JOUEURS="TRS" : GOSUR 2 


AND NC)E GOSUB 4000 ELSE GOTO Z200'oeour le tour suivant 


“Hs 


a 
À 


40 


ZE 


4A 
43 
48 


QU LA 


OI FI 


35 
S4 








Lorsque le nombre de graines 
et leur répartition sont tels que 
toute prise devient impossible et 
la poursuite sans fin, le vainqueur 
est celui qui possède le plus de 
graines. 


Quant au jeu lui-même, il vous 
réserve sans doute bien des sur- 
prises. Tactique et stratégie se- 
ront nécessaires pour devenir un 
bon joueur. 


Le but de cet article n'étant pas 
un cours d'Awalé, nous nous 
contenterons de donner quelques 
éclaircissements d'abord, quel- 
ques conseils ensuite, et vous 
ferez le reste par la pratique, c'est 
encore ce que l'on fait de mieux 
pour apprendre. 


Supposons dans tout ce qui 
suit que c'est à Nord de jouer. 
Nous représenterons par un «.» 
le contenu d'une case lorsqu'il 
n'est päs primordial pour l'expli- 
cation donnée. 


Le début de la partie 


Si Nord joue, par exemple, sa 
case B, il sème ses quatre graines 
dans les cases C, D, E et F (une 
par case) et l’on obtient la confi- 
guration (2) ; si Sud joue ensuite 
sa case f, il sème ses graines 
dans les cases À, B, C, D, et l'on a: 
la configuration (3). 





La prise 

a) Prise simple : à partir de cette 
position, Nord joue C et gagne en 
c deux graines. 





b) Prises multiples : Nord joue E 
et gagne 2+3+2=7 grainesenc, 
d, etc. 
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La défense contre une menace 
simple 





La case c de Sud menace de 

prendre les graines des cases Bet 
C de Nord. Que peut faire Nord 
pour l'en empêcher ? [| y a trois 
possibilités (au moins). 
a) Jouer C : ainsi c ne menace 
plus qu'une case vide et ne pren- 
dra rien. (Nord a bien sûr mainte- 
nant une graine de plus en E. Le 
total de E étant sans importance 
par rapport au problème). 





b) Jouer B : ainsi c menace une 
case contenant déjà trois graines 
et ne prendra rien. 





c) Jouer F : ainsi c ne menace 
plus C mais D qui, elle, contient 
quatre graines et ne prendra rien 
avec c. 





Ce choix dépendra bien sûr des 
cases marquées « . » et de leur 
contenu. 
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Position 


de 
la 
maison 





Nombre de graines dans la maison 


La défense contre une menace 
multiple 


La case c menace de prendre la 
graine D. La case e menace de 
prendre la graine B. Nord ne peut 
alors empêcher Sud de prendre 
deux graines au coup suivant que 
s'il possède dans une des cases 
marquées « . » un nombre de 
graines suffisant pour effectuer la 
dernière manœuvre décrite (ajou- 
ter des graines dans les cases de 
l'adversaire). 





La défense contre une tenaille 

La case e menace de prendre la 
graine A. Si Nord joue cette case 
À, Sud jouera f et prendra quand 
même deux graines. Nord ne peut 
alors empêcher Sud de prendre 
deux graines au coup suivant que 
s’il possède, dans l'une des cases 
marquées « »y un nombre de 
graines suffisant pour effectuer la 
manœuvre précédente sans tou- 
tefois arriver jusqu'en B... Cher- 
chez pourquoi. 


ÉELERE 
CT 


L'attaque 

L'attaque la plus simple 
consiste à se trouver soi-même 
dans l'une des positions décrites 
précédemment alors que l'adver- 
saire ne peut pas se défendre. Il 
apparaît clairement, j'espère, que 
les menaces simples seront celles 
qui-auront le moins de chances de 
réussir. 





Une attaque c 
efficace : la construction 
d'une maison 

Construire une maison, c'est 
accumuler suffisamment de grai- 


nes dans une case pour effectuer 
plus d'un tour de tablier, et ga- 


gner ainsi plusieurs ensembles de 
deux ou trois graines en un seul 
tour de jeu. La maison doit donc 
contenir un nombre minimal de 
graines : ce nombre dépend d'une 
part de la case dans laquelle on 
construit, d'autre part des cases 
visées. 


Exemple : une maison, cons- 
truite par Nord en D réclame deux 
graines pour arriver dans la der- 
nière case plus six graines pour 
parcourir le camp de Sud, plus 
cinq graines pour parcourir le 
camp de Nord (on saute la case de 
départ D) plus au moins une 
graine pour atteindre à nouveau 
Sud en a, plus éventuellement 
une, deux, trois, quatre ou cinq 
graines pour atteindre b, c, d,e, f. 


Attention : une de plus et Nord 
retombe chez lui. Mais la récolte 
peut être fructueuse. 


SU 
HE 
314101010141 


Nord joue F et gagne trois grai- 
nes en e, trois graines en d, deux 
graines en © soit au total huit 
graines ! 


Le tableau ci-dessus vous 
donne, en fonction de la case 
dans laquelle elle est construite, 
le nombre de graines nécessaires 
pour atteindre la case visée. 


Maintenant à vous de jouer sur 
votre TRS-80. Mais peut-être 
connaissez-vous d'autres varian- 
tes. Alors, n'hésitez pas! En- 
voyez-nous votre programme réa- 
lisé sur votre ordinateur 
individuel. 


EE OS TT 


Jean-Louis Richaud 


EE 

















\ 




















| Ching 





des oracles chinois 
sur votre ZX-8 


| ne se passe pas un jour sans que l'on ne soit 
amené à prendre des décisions plus ou moins 
importantes pour l'avenir. Parfois, entre deux 
possibilités, le choix est difficile. Votre ZX-81 
peut alors vous secourir efficacement avec le pro- 
gramme que nous vous proposons et une pièce 
de monnaie (chinoise, du XI° siècle av. J.-C.). 


Ylous autles Chinos 
awmons Deaucovp 
oldinaäteuls!! 


















Les sages chinois du troisième 
millénaire avant J.-C. avaient 
créé, pour se tirer d'embarras, un 
système d'oracles appelé Livre 
des changements ou | Ching (pro- 
noncer | King). Les bases de ces 
oracles furent établies en 3322 
avant J.-C., par le sage Fu-Hsi. 


Au XI: siècle avant J.-C., pen- 
dant la dynastie des Yin, le prince 
Wen et son fils, le duc de Tan, ont 
commenté le livre des change- 
ments. Plus tard, Confucius lui- 
même a longuement étudié le | 
Ching pour en tirer des enseigne- 
ments profitables. 





Les sages chinois 
étaient-ils 
des informaticiens ? 


Le livre est composé de 
soixante-quatre signes consti- 
tuant la réponse à une question. 
Afin de résoudre tous les problè- 
mes, les réponses sont formulées 
de façon plus ou moins sybilline. 


Pour se servir du fameux livre, 
les Chinois utilisaient un rituel 
compliqué. Dans le but de simpli- 
fier, vous utiliserez le système du 
pile ou face. En effet, le | Ching 
est fondé sur le principe du sys- 
tème binaire et fonctionne donc 
comme un ordinateur, qui n'utilise 
que le 1 ou le O. Les Chinois se 
contentaient d'un simple trait in- 
terrompu (--) pour le 1 et d'un trait 
simple (-) pour le O0; On peut 
donc dire qu'au XXXIV® siècle 
avant J.-C., certains sages 
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Première parution : L'Ol n° 47 


Programme | Ching (début) 











1 REH I CHINE T 16,9; : FERMETE ET C0 
2 REM EE XXEXKFEEKFEEREEEKEHES RREC Ton 

S REM AUTEURS WILLIAM MARI ET 17@ TR "110811" THEN PRINT 
DENIS DUHR T is,8;' : SU UCCES DANS 
d EFKEEFEESERÉEELEEREY FES LES Éconm 2 
5 PRINT TRS is," EEE" 125 IF C$="110801e LÉEN FRE 
5 PRINT _-- T 16,6; AT .16,0; ‘"E ir ‘REC 

1% PRINT ‘POLIR APPORTER UNE SÙ HERCHE D.UN ACCORD.” 
LUTION A UOTRE PROBLEME, FAIT 188 IF Cé="116061" THEN PRINT F 
ES PILE OU FACE 6 FOIS EN VOUs TT 16,0: : SAGACITE DU C 


CONCENTRANT SUR LA QUESTION ET I ONSEIL." 


NSCRIUEZ PÉDSRRUERRES 4 CHAQUE T 185 IF C$&="1100@8" THEN BRENT 
QUR.","RIL F T 16,9;  ÉRR - LA DIGNITE AURAI 
ACE = _@" T TOUT." 
li PAUSE 139 IF Cék="101111" THEN PRINT F 
1e POKE 18487, 255 T 16,6," : SAGESSE DE 
15 CLS L.EXPERIENCE. 
15 PRINT "PILE=1"; TAB 26; “FACE Fe IF, € 2Fig1110 THEN PRINT À 
ra" 16,68; : INUTILE DE 
> LET R=19 TRATRE REPRETER. * 
28 LEFT C$&="" 288 ab .£$="191191" THEN PRINT F 
SS FOR N=1 TO € T_16, : LA SINCERITE EST 
+9 LET RS$=INKEY# si PRÉÉÉRAELÉ 
dl IF R$é<>"1" AND R$<>"O" THEN 28s IF © = 191180" THEN PRINT à 
GOTO 46 : SUITE DANS LE 


(ee | 
td hs 
î 
17 
8 


4S IF R$="1" THEN PRINT AT A, 


3; "2 D: "210 IF .C 181011" THEN PRINT & 
50 IF R$="@0" THEN PRINT AT A,1 T° 16, De cn RÉPRENNEZ L.f 
EN à Re TENRÉ ÉACON 


55 LET c$= CH+RS 815 2F ="191210" THEN PRINT À 
6a LET =A-2 T_i6 .@ : LES ENNUIS 
65 IF £e THEN GOSUB 8@ NE Sont PAS TERNINES 7 
78 NEXT à 226 IF C$="101081" THEN PRINT & 
F5 SOTO 1965 PRE ;0;°7! : POURQUOI TENT 
69 IF Cé="11" THEN PRINT AT 12 DE PAROLES ER 

a; : CEST L.EeMNGLEME DC ees iF , € eee THEN PRINT à 

È LAMERE, E La FEMINITE ACCUEIL T7 15,68; ë UOIR S.ARRETE 

LAN-TE, DE LA DOUCEUR. : À EN’ CHENE 
65 LE Ce 01" THEN PRINT AT IE 236 IF,0$="100111" THEN PRINT _9 

,@:" + C.EST L.EMBLEME © T'16,@;" : LE SOGE S2IS]I 

É LAFILLE, D ‘LA JEUNESSE FEMINI T L.OCÉEASTON. 


NE, DE LA RESERUE. " 253$ IF Cé$="1801:10" THEN PRINT À 


SS IF C$é=" 68" THEN PRINT AT 42 T 16,8;" : ÉXRMINEZ 8 
&; dual C.EST L.EMBLEME IEN LES COSEQUENCES. 
Êt ERE DE L VITALITE SRSE, DE 24Q 1F,C$="100191" THEN PRINF A 











La FORCE T 16,0; : ENTRAIDE ET COQ 
GS IF Cé ="10" THEN PRINT AT 1£ HPRENER — ON 
SG; C.EST L.EMELEME DAS IF Cé="108100" THEN PRINT A 
bu LA JEUNESSE UIRILE, 7 _16,0;" : REPRENDRE PL 
DE L.IMPETUOSITE. USIEURS FOIS.‘ 
182 RETURN 2506 IF C$é=-"100a8i1" THEN PRINT A 
195 PRINT T 15,9; * ÉSRÉRÉE : TOUTES VOIE 
119 IF Cé="111111" THEN PRINT & 5& QUUER -LES s 
116,0: "ÉRRNEE: SUCCES PAR 255 IF =" 100010" THEN PRINT & 
L.OBÉÈIS-SANCE. T Te, 0" .OREÏFLLE ET L. 
25 IF Cé="t Ts." 

IF ="100081" THEN PRINT 5 
SURTOUTPRS." 16,8; : INDIFFERENC 
129 IF C$é="111101" THEN PRINT £ ES AUX ANCEANS. 

TER, 0:20 : ÉTÉS-VOUS BIEN al 2855 IF C& TEE TEE THEN PRINT & 

R DE UOUS 7?" T FE, 0: “ER: SE MEÉFIER DU F 
A12S IF Cés"141120" THFN PRINT Ê LUE ÉOBT" 

T'36,0: "SRE: TACHE INS 278 IF a ER pe THEN PRINT à 

CREVER T_16,0;6 : OBSTACLE SANS IMF 
138 IF 211011 THEN PRINT 5 ORTANCE." 

T HE RESPECT ENGENE 27S IF C$-=-"@11118@" THEN PRINT A 

RE nu ECT." T 16,08;" :LA PENSEE ACCROT 
135 IF Cé="111010" THEN PRINT à T L.4C- TIONS" 

T _16,8;: NETESRRRR EXHIBEZ UGS QUA 258 IF Cé=-"011191" THEN PRINT 

LITES." T i6,08;" : TROP D.F 
149 IF C#="111@01" THEN PRINT R SpO1b: LA DECEPTION.' 

T Îe., à: “ER LE GRAND AIDE L 285 IF C =_2111007 THEN ERINT fa) 

E PETIT," T 16,60: '" SERRE HIS: AUANCEZ SAN 
145 IF © ii00e" THEN PRINT D & HEËT- TER. 

T 16,@;" MHANGUE DE C2? 290 IF Cé="011@11" THEN PRINT A 

HMHÜNICA-TION T I PAS De APPREH 
150 IF “11@111" THEN PRINT À ENSION." 

T So dr Cha" ion: BRILLER SANS E 235 IF ,c$="G11010" THEN PRINT 

BLOGUIR." T 16,8;" :LA LOI PROTEC 
155 IF Cé$="110119" THEN PRINT 5 #€ LE Sh-6E." 

TASSD : REPOS ET ©cû 368 IF,C#="B11@21" THEN PRINT £ 

NCENTRA-TION." T is, @;' :UN GRAND PROTE 
166 IF Cé="1101@1" THEN PRINT À GE PâP DES PETITS 

T 16,8; ” PÉSRRRRE | COUTURE D.6 3e5 IF, ="@11808" THEN PRINT FE 

N TALENT" T 16,8 : L. INCORRECT ION 


18S IF C$="119189" THEN PRINT 


ni 


MENE AUPÉSASTRE. 


>>> 
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Sr IF C$="881a18" 





chinois parlaient comme nos cer- 
veaux électroniques modernes |! 


Bien que fastidieux à entrer par 
le clavier du ZX-81 du fait de sa 
longueur, la structure de ce pro- 
gramme reste des plus simples. 


Le traditionnel 
pile ou face 
sera déterminant 


Les variables de la liste sont 
appelées suivant le code tapé par 
l'utilisateur. Elles donnent accès à 
l'impression d'un petit texte sur 
l'écran. Le calcul proprement dit 
se résume aux lignes 30 à 75, qui 
permettent de distinguer les don- 
nées et d'afficher le symbole cor- 
respondant. 


Pour utiliser ce programme, 
munissez-vous avant tout d'une 
pièce de monnaie, 


Après avoir tapé RUN, le ZX-81 
vous explique la règle du jeu. On 
lance la pièce ; si elle tombe sur 
pile on entre 1, si elle tombe sur 
face on entre O. Cette opération 
est répétée cinq fois de suite. 


Grâce à la ligne 41, on ne peut 
qu'entrer 1 ou O sur le clavier ; 





THEN 


Programme | Ching (suite et fin) 


310 1F ="2101: THEN PRINT A 8,9:"2 
118.0: "ÉÉSSRSRSREne PoUROUOT ho 42: "E RD 
« 10N 7 * 359 IF C$="001021" THE 5 
15 IF,0és 210110" THEN PRINT RO r'ié,0:" NE PAS NECC TOR Lg 
T Fat SAR EC ES L TEZ-VOUS Ph PLAISIR. * 
FO x ES." SES IF C$é="BG102R" THEN PRINT 5 
328 IF Cs$="'8181981" THEN PRINT À T i6,8@;" : MAIS LE RRRNEt 4 
FES 0: COSDÉERER. TERMINER EST FAUDrE ÉEDIOOURE PAS. 
-AISE. : È C$="@00111" THEN PRINT = 
325 IF SRE: 181006" THEN PKINT T 15,9;°" FIN DE PETITESSE, C 
is TS : CHAQUE CHOSE EST DE GRANDEUR. "” 
A _S e] FU 4 335 IF C$="D090110" THEN PRINT F 
350 IF C$=" "010011" THEN PRINT € RE | NES 
T 18, 0: "SOUS. INSUFFISANCE E purée « HAT NSRENER ES 
Ü DEMI- SUCCES." Lu PEER à : * 
jee FECEURET URSS +00 LP. DR 000101" THEN PRINT € 
L AT AELEE LE NECESSAIRE DOI BR CONDUIPE. 
" 485 IF Cg=" 182" PE 5 
349 If C$="210001" THEN PRINT F 7 16,@;" TR RNSEE D EE FADE Æ 
T 16, 0° "ÉSRSREE AGIR D.ABORD, E CRÉUE-RR PEUT ÊTRE PAS." 
PENSER ENSUITE. 7" . 2 +422 dr. C$="200911" THEN PRINT € 
Ez PAS CO ee En NE MELANE FÉRAÈLE” : 
= È EL = EE fa se CE [— al 
550 1F,C$="001111" THEN PRINT © +'ie din EIRE TS TÉNES-UOUS 5 
4 ÉROUT-SOIRE : :SUCCES PEUT EÊTFR EN TOUS LES FILS EN MAIN. 
= ’ 420 IF C$=" @QG@Ba1" THEN PRINT € 
3SS IF © BALL" THEN PRINT 5 p°5 x : ; az 
TS SÉSRRRERRRS LEGUILIORE  Êz oo en N.BHA 
[ns] MH FRET EC F Cé=""';i at + =: 
368 IF C$= 001191" THEN PRINT A rie, manie ce COBNCERENT 
Le 282 È FREIN DESSER Sy SALU-TAIRE." 
3 AUEZ - & 
Ses dr EE PMEETEE TES THEN PRINT E ESAUTRE QUESTION 74 EMEZCROUEN UE 
ELUÜI : he: L Mas 
370 IF Cé="@A1a11" THEN PRINT £ ie LLe SNS 
T_15,0@;° * RÉRRRES : VERTE DE L.RE 4358 PRINT AT 12,10; "A BIENTOT" 
STENTIÔN" 488 STOP 


toute action sur une autre touche 
restera sans effet, afin d'éviter les 
erreurs. 


Sur l'écran, vous verrez s'affi- 
cher après chaque donnée soit un 
trait plein, soit un trait inter- 
rompu. 


Après le deuxième coup, le ZX- 
81 donne la caractéristique géné- 
rale de votre question ; après le 
sixième coup, il vous donne sa 
réponse définitive. 


Pour ceux qui possèdent l'im- 
primante et qui désireraient l'utili- 
ser, la ligne suivante peut être 


ajoutée : 428 COPY. 


Il faut, avant toute chose, inter- 
roger l'oracle et poser des ques- 































tions uniquement sur les événe- 
ments contrôlables (hésitation sur 
le choix d'un métier, d'un achat, 
d'un spectacle, etc.). 


Le | Ching ne vous fera malheu- 
reusement pas gagner au loto ou 
au tiercé. 


Concentrez-vous sur la ques- 
tion qui vous préoccupe et lancez 
la pièce. 

Si vous faites pile, tapez 1; 5 
vous faites face, tapez O et ce 
jusqu'à ce que vous ayez lancé la 
pièce dix fois. 





Un programme 
vieux de 
5 300 ans ! 


Les réponses fournies ne sont 
pas toujours très claires mais 
voilà bien le propre des oracles. La 
réponse à votre question se 
trouve en vous, le | Ching vous 
aidera seulement à la découvrir : 
c'est, en quelque sorte, un pro- 
gramme d'aide à la décision vieux 
de 5 300 ans... 


Denis Duhr 
William Mari 
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quan 
a rendez-vous 


A brement e D LE Alunir ou atterrir ? Question d'atmosphère. 

que, vous transporte sur la Lune. retrouver vos esprits, à faire le 

go module lunaire parcourt le concentrer sur un seul objectif : mener à bien 
aut de l'écran. Il est animé d'une 14 

vitesse horizontale aléatoire, et de planer, car après tout, S ecraser 

est soumis à la gravité lunaire. ça fait tout de 


Le joueur dispose de trois tou- 
ches REPT-SHIFT-CONTROL. Les 
deux premières lui permettent 
d'allumer des rétrofusées pour se 
propulser respectivement à gau- 
che et à droite. La troisième tou- 
che met en marche le réacteur 
principal : le module lunaire dé- 
colle alors vers les espaces inters- 


tellaires. > COMMANDES LEA à. GTREE BANCRE VANAS HI TE DROITE" 
D EU bois doll inettie 5 su NS « RETRO-FUSEE"" TAPER UNE TOUCHE"; LINÉRFFES 
sont respectées, autrement dit 1 Ve96iHeR, 410: =D; We 
l'accélération du module est < REPAS ÉUMERCEN 
contrôlée ; par exemple, si on ap- 49 BOT EE TO 
puie sur SHIFT le module accélè- 5G tte VAE à Te Lei 
rera vers la gauche et si on lâche 2. A. R. HE 
SHIFT, il gardera la vitesse ac- F6. Far ACTA 
quise. A de de NN 
Pour l'arrêter, il faudra appuyer aug M.x 
sur REPT, ce qui le fera décélérer. CU Pet PRES Pen Parc nn RS 
Voilà ! Petit détail amusant : 234 REM € du decor aëres la base 
une fois devenu expert en manie- 248 F k 
ment du module, essayez, avec la FA 


flamme des réacteurs de faire des 276 Xe x1 x 241 xe2 


trous dans le sol ! 
: : : A F.X=0TOISS: MOVE KG: MAIT à DRAHX 4 { 
Ce programme est articulé sui- 34 REM dessin du cadre uli ment de 





vant cinq étapes {les trois derniè- ë 5 1,3 PLOT re 127: 0: PLOTT, 187: 58 
res étant réservées au programme PROMIS ER ES UK ES pri AAC BE MERS 27 i à 
secondaire), décrites en lignes 4 BEM rqnes < : RASE Er FA 

« Rem dans le programme. | 2598 n=15:605.f Nr. ja À 

& |lne vous reste qu'à essayer ce A, Ne A Re M GT MT 

S programme et à modifier la tem- 38 D H=H+#1 

= porisation (ligne 460) suivant qu'il 33 11=#E HeH-1 

2 vous paraît trop simple ou trop 40 de La Fosition du moduie 

à compliqué. A bientôt peut-être, ji 

dans la Lune ! 

n:] 





Francis Reignat REM temporisation 
F.T=ATO8:MNAITiNT Copyright L'Ol et l'auteur 


Premi 
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Atom 
avec la Lune 


Ce programme sur Atom doit vous aider à 
vide autour de vous et à vous 

votre mission. Mais attention, n'essayez pas 
sur la Lune (ou sur la Terre) 

même très mal... 


Description du programme 


Ligne 110 (initialisation Y) : ordonnée 
de la position du module ; (initialisa- 
tion y) : vitesse aléatoire horizontale 
du module ; (initialisation U) : agran- 
dissement réalisé ou pas ; (initialisa- 
tion V) : vitesse verticale nulle. 

Ligne 140 : initialisation y {x}, x € 
[0,130], ordonnée du sol lunaire. 
Ligne 160 : y (o) ordonnée du sol 
d'’abscisse O ou départ aléatoire 
+20. 

Lignes 170 à 200 : calcul des autres 
ordonnées par rapport aux premières 
pour qu'il y ait continuité (écart + 2). 
Lignes 220 à 270 : idem. 

Ligne 290 : traçage sur l'écran du sol 
lunaire (x = 64 abscisse de départ du 
module). 

Lignes 300-3 10-320 : « fignolage ». 
Ligne 350 : extinction de l'ancienne 
position du module. 

Lignes 370 à 390 : lecture des tou- 
ches. 

Ligne 410 : calcul de la nouvelle 
































































47A REM crash où aluni 
488 IF PULENNRATAE ni 
4S@ IF éy= 2 DC x =2 7ORCY 
SAR REM agrandiss 
518 IF Li=Q IF 
529 G.d 

539 REM fin de 
540 REM dessin des & fo Le Le RS 

O96e Ir V>-4 CLERR ? ! APRES CET ALUNISSAGE CE" ;®@+2 
afe{2 Ne à RP ECS AU, FORTUNER FC E KMIDE LA BASE,IL HE " 
S70: IF Near F4 PES LPS TE FLL l°A MARCHES, s1 'éGel 


Ciel 
Es 













Programme d'alunissage (fin) 















598 ra 

FE position. 
690 F.T=ATO80; MAIT IN. 1; CL : $ L } ! 
EI Pirrin RRRES LRA BLE,"e Lignes 420-430 : contrôle de sortie 





de l'écran. 

Ligne 460 : temporisation (si le pro- 
gramme est trop rapide on s'écrase). 
Lignes 480-490 : on vérifie si le mo- 
dule touche le sol, auquel cas on 
examine sa vitesse. 

Ligne 510 : si le module n'est pas 
assez près de la base on agrandit 
l'image { V ). 


2  P.UVOTRE MODULE EST INUTILISASLE!""" LA GASE EFARGNEE " 
63% F,"VOLUS REHC LES HOMNMHEURS..."°* 
6542 Gi 
ÉSA REM dessin du module 
G6Af PLOTM,CH-1 FLAT 6 06: PLOTII CAE 1 D, 
RAM CHE +1 5 PLOTM H, CS D PLOTH, € 
PLOT Mix Gr+2z 2: PLOT M,6 É CM =30 : PLOT 
IFA=A Hier LEE £ Y=2 3: PLOTM, #,Cw=8 3; PLOTMs à CrriR 
RETURN 














#19, CT+12 












REM comme ul SUR Pur Ligne 520 : retour en 350. 
NE Les MONTE PAT Lignes 550-560-570 : si le module a 


aluni en dehors de la base, des 
commentaires s'imposent. 

Lignes 580 à 640 : la vitesse est 
supérieure à 4 ; on dessine l'explo- 
sion et on fait des commentaires. 
Lignes 660 à 700 : dessin du module. 
Lignes 720 à 830 : commentaire ou 
explosion. 

Ligne 850 : agrandissement de 
l'image en passant à une définition 
inférieure de l'écran. 

Ligne 870 : attend environ 5 s puis 
renvoie au début du programme. 





IF W>-4 P." #x me 
IF Wè=d PP." SUPERBE ALUNI SSAGE ! 
F. T=OTUSG : MOVEX : VE K 





Céder E El 
3 DRAC Re AG +AD CAR. HSE TEE #70 













PL" PAR VOTRE FAUTE, LA 
P: "DETRUITE. .. "437.7 
P." VOUS ù 






NHE HE PEUT" 
AIT: :P." 

NS. DE. TERRISLES, " 
PCT 





Gi 





L'Ordinateur Individuel 
a Dossier Programmes n° 54 bis déc. 1983 





Première parution : L'OI n° 48 





abysses 





panique 


au fond des 


Vous voici aux commandes d'un sous-marin pos- 
sédant un tube lance-torpilles. Votre but ? 
Abattre le plus d’adversaires possibles. Rassu- 
rez-vous : à défaut de vous transporter dans un 
espace intergalactique, vous traverserez les ma- 
récages de la haute résolution du Vic-20. 
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mers 


Tapi au fond de la mer, vous 
êtes en possession d'une arme 
vous permettant de détruire trois 
types d'ennemis : un hélicoptère 
(survolant la mer, bien sür |} qui 
vous rapporte 100 points, deux 
bateaux, pour lesquels vous béné- 
ficierez de 70 points, un sous- 
marin grâce auquel vous gagnerez 
200 points. 


À chaque passage le sous- 
marin dépose une mine, dans le 
seul but de vous faire perdre 
15 points, mais vous obtenez 
alors une torpille de plus (vous 
disposez initialement de soixante- 
six torpilles). Si vous touchez un 
sous-marin, toutes les mines déjà 
présentes à l'écran disparaîtront. 


Pour éviter le tir en rafales, un 
test vérifie que vous n'avez pas 
tiré trois coups successifs du 
même endroit, auquel cas le 
canon deviendrait inactif (vous 
devrez alors le déplacer pour pou- 
voir l'utiliser normalement). 


La mise à feu de la dernière 
torpille provoque l'affichage de 
votre score définitif, ainsi que la 
fin du jeu si vous n'avez pu dépas- 
ser les 1500 points nécessaires à 
une nouvelle partie. 


Un programme 
avec ou sans 
poignée de jeu 


Le programme, tel qu'il est 
écrit, nécessite l'emploi d'un 
manche à balai (CBM ou Atari), 
mais le tableau 1 (page 86), vous 
permettra d'utiliser le clavier sans 
pour autant altérer l'intérêt du jeu. 











Programme avec poignée de jeu 


POKE36879,29:PRINT" ASSRSSSRRORMEF ACILES ‘F'* 

PRINT SRB IFFICILE" *D'* 

P=PEEKC 197): IFP=18THENOO #0: GOTOS 

1FP=42THENOOs | : GOTOS 

GOTO3 

PRINT 2" 
POkE368698,255:POKESE,28:POKE96 ,28:POKE36878,19 
A=7168:FORI=ATOR+S111POKE I ,PEEK( 1+25608):NEXT 
FORL «0 T01 11:READF : POKER +L ,F:NEXT 
OATA1,0,0,32,119,32,0,9 
DATAS,3,7,15,255,114,63,31 
DATA3,3,3,127,299,213,853,127 
DATAR5S5,16,56,100,250,124,40,124 
DATAO,192,224,240,25$,78,252,248 
DATAI88,128,128,254,255,171,255,254 
DATA1I6,16,16,18,96,254,254,254,8,16,16,0,0,16,16,8 
DATAO,82,62,292,63,122,54,16,128,81,42,4,0,0,0,0,8 
DATA1,130,64,28,62,28,0,0,16,16,16,56,56,56,0 
DATAS,6,3,127,7,63,21,31,0,8,144,168,192,252,88,240 
Us37194:V:37137:N=37152:2=8109:S27834:020: 11-0186 
FORR238818T038839: POKER ,2:NEXT 
FORR28 120T08196:POKER, 11:POKE307284R,3:NEXT 
FORR=78S6707877:POKER,9:POKE3B7E0+4R,6:NEXT 


180 POKEU,1271Y=-C<PEEKC WDAND 128) 28) 1H=€ € PEEKC VIAND16) 28) :PDKEU,255 
119 D=1:2=2+K+Y11FZ<B80SS0ORZ >8118THEN0® 

113 1F21C)ZTHENQ=G:POKEZ 1,32 

120 POKEZ,6 

122 Z1#Z1TePEEK( V)ANDSE 


5 I1FQ)2THENR00 


130 1FT<>32THENtD=21Q=0+1:GO0TO0688 
200 ONDIGOTOESE ,300 ,400 
250 POKES,32:5=S+M:POKES+30728,4 


6 1F5=78340RS=78SSTHENPOKES ,32: 6010300 


280 POKES, 1+F1:POKES+M, 1+F21POKES+M+30720,4 


à Di=1:GO0T04508 


300 POKES ,321S28+MIPOKES+30720,E 


© 1FS=:78780RS27899THENFOKES ,32 : G0T0500 


329 POKES,2+F 1tPOKES+M,24F2:POKES+M+30720,2 


B IFS=CTHENFOKEC-22,10 


360 D1=2:G070450 - 
400 FOKE36877,200:POKES,32:POKES+1,3218a8+1 

419 1F5=7833THENPOKE36877 ,0:G0T0508 

4e8 POKES,0:POKES+1,3:01="31POKE38877 ,9:POKES+30781,7 
459 ONDGOTO198,610 

500 N=RNOC | } Me INT RMDX 12+.53 

510 IFM"OTHENM=-11F1*31F2#8:G0T0530 

520 Fi=0:F2=3 

S25 IFN.8STHENDI1#1:527854:M=-1:F1=12:F2s= 1 1 :GOTO458 
538 IFIK .STHENDI1=2115=7845-94M:GO0T0450 

548 1FIK,7STHENDI=2:5=7889-94M:C=2 -280 : COTOA45O 

559 D1=3:S5=7812:M=1:G60T0458 

680 R=2:D=2:1F112>81S86THENI1=8186 

605 11=11-1:1F11C8120THEN1S508 


7? POKEI1,32 


619 FORTR=OTOO0:POKE28877 ,220: IFRÇ7920THENSS3O 
6ee R=R-22 

620 POKER,7:POKER+30728,7:POKE36877 ,010=2 

646 hEXTIGOTO208 


650 SI=R-S:SE=R-S-M 

635 IFPEEXZ-248)=1OTHENSC=SC-13:POKE II ,11:11=211+1:POKEZ -248 ,8:G0SUB845 
688 IF£E=INTCS1/22)256 I THENSA=PEEK( 5) : GOSUBE0 : GOTOS88 

670 IF£RsINT(SE/88) =SETHENSA=PEEKC 5 +M) : GOBUBSDO 

680 FORR=Z-22TO0Z -220STEP -22 

690 POKER ,32:NEXTIPOKE36877 ,2:G0T0108 

600 IFPEEKCZ-248) = LOAND( SA=20RSA =5 ) THENSC=8C +8D 

810 IFSA=20RSA=STHENSC=SC +208 :G0SUB9350 :GOTOB40 

815 1FSA=I0ORSA=40RSA= 120RSA = 13THENSC=SC +701: GOT0840 

620 IFSA=00RSA=3STHENSC=SC+100 

848 POKES,8:POKES+30720,7:POKE36878,15 

645 FORL=0T05:POKE36875 ,228 :G0SUB900:POKE 36875 ,0 : GOSUBSO8 :NEXT 
83e FOKEZ-242,9:POKE36878,19:G0T0 1000 

908 FORAz1TOSD:NEXT I RETURN 

950 IFDI"2THENFORR*7858707877 POKER ,9NEXT 

968 RETURN 


18 


@00 FORN27717707723: POKER ,32:1NEXT 


19 SCS-8S TR SC) IL=2LEN SC) 


1820 FORA=1TOL 

1050 POKE7717+A,ASC0(MID8 SCS,N,1))+128 
1840 POKE38438+A,0:NEXT:RETURN 

1500 PRINT"J":POKE36889 ,2408 


15 


19 PRINT" Mtema/OTRE SCORE="SC 


1520 IFSC>1SOOTHENPRINT* ARMES 66 MUNITIONS*:FORX=OTO4DBD:NEXT:RESTORE : GOTOS 


1550 PRINT" AUTRE 75 





1560 GETA#: IFA$»* "THENIS68 
1570 IFAS="0"THENPFOKE 36868 ,253:RUN 
1580 END 


READY. 





Programme sans poignée de jeu 


1 POKE36879,29:PRINT" ARRSRSSRERERRF ACILEZ ‘F'° 

E PRINT" SORm@D ]FFICILEZ ‘O'" 

3 P*PEEK( 1971 IFP=18THENOU=0 :GOTOS 

5 IFP=92THEN0O: 1 :GOTOS 

7 GOTO3 

8 FRINT'ÿ" 

18 POKE36869,233:POKES2,28:POKES6 ,28:POKE 36878, 10 
20 A»7168:FOR1=ATOR+S 1 1 &POKE 1 ,PEEKC | +29600) 1NEXT 

36 FORL=OTO111:READF : POKER +L ,F :NEXT 

406 DATA1,0,0,32,119,32,0,0 

45 DATAO,3,7,15,235,114,63,31 

Se DATAS,3,3,127,255,213,853,127 

55 DATAESS,16,36,100,230,124,40,124 

69 DATAO.192,824,248,255,78,232,248 

GS DATAI28,128,128,254,298,171,255,254 

78 DATAI6,16,16,16,56,2%4,254,254,0,16,16,0,0.16,16,9 
75 DATAO,82,62,252,63,122,54,18,128,81,42,4,0,0,8,8,8 
77 DATA1,130,64,28,68,28,0,0,16,16,16,56,56,36,0 

79 DATA6,0,3,127,7,63,21,31,0,8,144,160,182,852,88,248 
86 U=371541V371371H37152:1Z2-010916#783410=0: 11-8186 
85 FORR*38818T038839:FOKER,2:NEXT 

87 FORR281POTOB188:POKER, 111POKE30720+R,3:NEXT 

S0 FORR=7856T07877:POKER,S:POKE30720 +R, GINEXT 

100 P#PEEK( 1872: IFP=31THENZ eZ -1 :GOTO11© 

105 IFPAR3THENZ eZ +1 

118 D=1:1F2<6BS90RZ 281 1BTHENM20® 

113 IFZ1<)ZTHENQ=0:POKEZ! ,32 

120 POKEZ,6 

12e Z1=2 

123 1FQG28THEN200 

138 1FP=8 THEN: O=21:0=0+11:GO0TO68B 

208 ONDIGOTO258,306 ,400 

238 POKES,32:S=S+M:POKES*30720,4 

268 1FS"78340RS-78SSTHENPOKES , 321 GOTOS8D 

286 POKES,1+F11POKES+M, 1+F£2: POKES+M+30720 ,4 

298 Di-1:60T0450 

388 FOKES,32:S=5+M:POKES+30720,2 

310 1F5=78780RS=7899THENPOKES ,32:G0T0508 

388 POKES ,24F11POKES+M,24F21POKES +4M+307E0,e 

350 1FS=-CTHENPOKEC-22,19 

368 Dis2:00T0458 

488 POKE36877 ,20D:POKES,32:POKES +1 ,32:S=54] 

410 1FS=7933THENPOKE36877 ,0: G0T0S08 

420 POKES ,0:POKES+1,31D1=31POKE36877 ,8:POKES+3D7E1,7 
450 ONDGOTO198 ,618 

500 N=RNOC 1 > 2e INT RNOX 12+.52 

519 IFMeOTHENMe-11F1#3:1F2201G0T0530 

S20 Fiñ0tF£2"3 

Se5 IFNK.8STHENDI=1:S=70841M=-11F )"181FE"1116G0T0458 
538 IFNK.STHENDI=115=7845-SeM:GO0OTO458 

548 1IFIK.7STHENDI=2:5:7889-9sM:Ca2 -220:10070450 

550 01=3:5278121:M=11:GOT0450 

608 R=2:0=2:1F11)8188THENI1*6186 

693 11=11-1:1F1IC8120THENI508 

6e7 POKEI1,32 

619 FORTR=DTO00!:POKE 38877 ,2E0: IFR<7S98THENS 30 

620 R«R-22 

630 POKER ,7:POKER+30720,7:POKE36877 ,0:1D22 


648 NEXT:GO0OTO200 

659 SI=R-S:SE=R-5-M 

6355 IFPEEKCZ-24P)210THENSC#SC-15:POKEII,11111=11+1:POKEZ-248 ,8:G0SU08845 

668 IF22sINTC81/222*8 1 THENSA=PEER( 5) :GOSUB860!: GOTO6SB 

679 IF22+1INTC8E/22) SE THENSA=PEEK( 5 +M) : GOSUB8DO 

680 FORR2Z-22TOZ -22OSTEF -EE 

6920 POKER,32:NEXT:POKE36877 ,0:G0TO0 108 

808 IFPEEK(Z-P42) = 10ANIX SA=20RSA=3 ) THENSC28C +80 

BIO IFSA*LORSN=STHENSC=SC +200 : GOSUB956 : GOTOB48 

815 1FSA=10RSA=40RSA=120RSA = 13 THENSC =8C +70: 6070840 

820 IFSA=DORSA=STHENSC=SC +108 

848 POKES,8:PDKES+30728,7:POKE38878,15 

845 FORL=OTOS:POKE 36875 ,220 :60SUB200:POKE366875 ,0: GOSUB900 : MEXT 

630 POKEZ-242,9:POKE 36878, 18:G0T0 1008 

800 FORA=1TOSO1NEXTI RETURN 

950 IFD1=2THENFORR=7858707877 :POKER ,9:NEXT 

960 RETURN 

1008 FORA=7717107723:POKEA,32: EXT 

1010 SCS=STR# SC) 1LeLEN SC#) 

1020 FORAzITOL 

1038 POKE7717+N,AS8CX MID SC#,A,122+128 

10948 POKE38438 4h ,0: MŒXT:RE TURN 

1308 PRINT*J":POKE36869 ,240 

1510 PRINT'MemmB/OTRE SCORE = "8€ 

1820 IFSC>1S500THENPRINT* EME GG MUNITIONS* :FORX=OTO40BD: NEXT:RESTORE GO TOS 
1550 PRINT" taie AUTRE 74 
1560 GETAS: 1FAS=""THEN1588 

1570 IFAS="0"THENPOKE36869 ,255 RUN 
1580 END 





READY. 
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D'autre part, afin de ne pas 
dépasser la capacité de mémoire 
vive du système (3 583 octets 
libres), il n‘y a pas de REM coû- 
teux (mais vous pouvez consulter 
le tableau 1 concernant la des- 
cription du programme). 


Peut-être vous étonnerez-Vous 
de la taille imposante de ce pro- 
gramme pour un tel jeu. Il aurait 
en effet été plus économique d'in- 
sérer une routine d'affichage et de 
déplacement des caractères dans 
une boucle FOR NEXT et de s'en 
‘servir successivement pour cha- 
que adversaire (quatre ennemis, 
le canon, la rafale). Mais cette 
méthode présente le grand désa- 
vantage de nécessiter une batte- 
rie impressionnante de tests du 
type IF AND THEN ou ÎF OR 
THEN, ce qui ralentit l'exécution ; 
d'où l'obligation d'écrire une rou- 
tine propre à chaque objet. 


Si vous désirez modifier le gra- 
phisme, vous pouvez recalculer 
les arguments des données 
(lignes 40 à 79), suivant les indi- 
cations de l'encadré 2. 


Le processeur 6502 
« comprend » un caractère comme 
une suite de huits nombres X 
(o<X<255), chaque nombre X 
étant la représentation décimale 
d'un octet. Voici donc la procé- 
dure à suivre pour obtenir un nou- 
veau caractère : 
. tracez sur une feuille une ma- 
trice de 8X8 cases ; 
. exécutez le dessin de votre 
choix dans cette matrice, en sa- 
chant qu'une case ne peut être 
que vide ou pleine (0 ou 1) ; 
. pour chaque ligne, faites la 
somme des huits cases qui la 
composent : une case i prend la 
valeur O si cette case est vide ou 
la valeur 2i si cette case est 
pleine (0<i<7) ; la ligne O est la 
ligne du haut, la colonne 2° est la 
colonne la plus à droite ; 
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remplacer T<>32 par P=8 











î 
CRSR 
Ÿ 


<—CRSR— 


— 





déplacement à droite 
pour tirer 





Tableau 1 : quelques petits conseils pour modifier le 
programme, de façon à pouvoir utiliser le clavier pour 
contrôler les déplacements et le tir. 


Commentaires 


effacer : U=37154:V=37137:W=37152 uniquement 
effacer complètement et remplacer par la ligne ci-dessous 
écrire P=PEEK(197): IFP=31 THEN Z=Z-1:GOTO110 
écrire IF P = 23 THEN Z=Z+1 

effacer seulement Z=Z+X+Y: 

effacer uniquement T=PEEK(V)AND32 


Touches à utiliser 
Commentaire 


déplacement à gauche 















Bien entendu, pour changer de touches, il vous suffira de remplacer les codes 
31, 23 et 8 des lignes 100, 105 et 130 par ceux de votre choix. 














Caractère au clavier 


Tableau 2 : calcul des arguments des DATA permettant 
de modifier les graphismes. 














Commentaires 









ou POKE----, X 
val 


X 





(= 
Il: 
I XXXX XI] 
21@o 1 1 1 1 NO 
| 











_ 
—ÿà 





arrière de l‘hélicoptère 
arrière du bateau n° 1 
arrière du sous-marin 
avant de l'hélicoptère 
avant du bateau n° 1 
avant du sous-marin 
canon, rafale 
explosion, vague 
mine 
arrière et avant du bateau n° 2 








reportez les huit arguments 


dans le DATA concerné, par 
exemple : 


252%252425;2172129 
Ligne i CNE _T DS = : 
octet 
La valeur de cette ligne sera 
donc:Li=0+64+32+0+0 
+4+2+0= 102 


A vous de jouer maintenant. Si 
vous disposez d'une extension 
mémoire, vous pouvez même 
ajouter diverses fioritures comme 
un graphisme plus réaliste ou des 
adversaires plus coriaces (poul- 
pes géants ou cétacés féroces). 





Patrick Lenoble 

















pavés 





autocritique aléatoire 


votre ordinateur avoue que ses dés sont pipés, mais VOUS 
propose en échange un programme d'histogramme 


Dans de nombreuses applications, il est intéres- 


sant de connaître 


la répartition d'une série de 


valeurs numériques : analyse de sondages, résul- 


tats expérimentaux, etc. 


Pour cela, on peut visua- 


liser l'ensemble de ces valeurs sur un dessin à 
deux dimensions, en tenant compte de la fré- 


quence d'occurence 


de chacune d'elles. La figure 


ainsi obtenue s'appelle un histogramme (du grec 
Histos, «texture, trame »). 


Son aspect estun peu celui de nos 
cités modernes. On le retrouve dans 
la plupart des ouvrages techniques 
contemporains. Si la collecte des 
valeurs peut être réalisée de ma- 
nières très diverses, leur exploita- 
tion (tracé de l'histogramme) estun 
travail facile à effectuer avec un or- 
dinateur individuel. Dans ce do- 
maine encore, une telle machine, 
posée sur le bureau de l'homme 
d'affaires, de l'ingénieur ou de l'é- 
tudiant, peut rendre de grands ser- 
vices. Encore faut-il l'avoir correc- 
tement programmée. 

Le programme que nous vous pré- 





sentons vous permettra de réaliser 
des histogrammes de manière as- 
sez générale. 


Il est écrit ici pour un TRS-80, 
mais peut être transformé pour 
fonctionner sur d'autres ordina- 
teurs individuels. Notre programme 
est écrit en BASIC. Les données à 
analyser peuvent figurer dans le 
corps du programme sous forme de 
DATA ou être calculées par ordina- 
teur. 


Pour chaque valeur, il s'agit de 
visualiser sur l'écran un «pavé » 
dont la surface corresponde à la fré- 


quence de rencontre de cette 
valeur. Pour cela, on rencontre deux 
principales difficultés. 


La première réside dans le fait 
que l'intervalle des valeurs peutêtre 
quelconque. || importe que cet inter- 
valle apparaisse en entier Sur l'é- 
cran. Il faut donc, lors de la prise en 
compte des valeurs, repérer la plus 
petite et la plus grande et fixer aussi 
l'échelle de l'histogramme. 


Nous ferons figurer l'intervalle en 
abscisse en le divisant arbitraire- 
ment en un certain nombre de par- 
ties (dix par exemple). 

La seconde tient au nombre quel- 
conque de valeurs. Le nombre est 
visualisé sur l'axe des Y. 

Pour résoudre le problème, notre 
programme peut graduer de deux 
manières l'axe des ordonnées. 
Lorsque chaque pavé contient au 
plus 40 valeurs, la graduation va de 
0 à 40. Quand cette limite est dé- 
passée, l'axe des ordonnées est 
gradué suivantune échelle logarith- 
mique : au lieu de représenter des 
longueurs proportionnelles à une 
valeur, on représente des longueurs 








Tracé de l'histogramme à l'échelle de 0 à 40 
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Première parution : L'Ol n° 14 


. . RÉ 
proportionnelles à son logarithme. 


(*) ; Liste du programme 


Dans ce cas l'axe des ycomporte jy ge xxx REALISATION D'AISTUGRAUAES *#% 
cinq divisions qui correspondent à 20 RE“ COPY«IGUT L'ORDIRATEUX INDIVIDUEL 
1, 10, 100, 1000, 10000 valeurs.” 30 POKE 16553,2552RE4 ##* SPECIAL TRS-S0 #4 


&O DIHA V(SOU):IREM POUR LES VALEURS 
Après le tracé des axes et de leurs &5 DIM Z(19) :REM POUR LES CRENEAUX 


graduations, nous COnStruirons ‘59 Gosus 1900 1RE ACGUISITION DES DONNEES 
l'histogramme. 60 IN=(MA-11)/10 
65 Z(10)=1:PRINTES30, "#*x4 CLASSEAENT DES VALEURS ***" 
Pour chaque valeur, nous recher- 35 50r à=1 10 44 1REN REMPLISSAGE DES TABLEAUX 
cherons sa position dans un deS 30 Fox J=1 TO 10 
créneaux déterminés précédem- 90 IF VON) D= (HI+(J=I)#IN) ap VON) € CAI+J#IN) 
ment et augmenterons d'une unité : . THER Z(J)=+2(J)+1:3=10 
la hauteur du «pavé » correspon- a Len : 
dant. Avant l'affichage, la hauteur 125 :1-0 :REA ECHELLE LOGARITAHIIQUE NECESSAIRE ? 
de chaque pavé sera éventuelle- 130 For J=1 To 10 
ment corrigée dans le cas de l'em- 135 1F 2(J) > 40 Eee > 
ploi de l'échelle logarithmique. ue MA EL=1:GOSUB 3000:J=10 :REM REDUCTION POUR ECHELLE LOG 
145 REM == Dnnsnmmnnmmmmmmmmn nn 
Exemple d'utilisation 150 REM TRACE DES AXES ET DES GRADUATIONS 
155 CLS 


Uneutilisation intéressanteestla 160 IF EL=0 THEN K=40 ELSE K=10000 
suivante. Notre ordinateur indivi- 165 FOR J=64 TO 896 STEP 192 2REM VALEURS SUR AXE DES Y 
duel pourvu d'une fonction RND (0) 17° PRINTEJ,K 


é ù 180 IF EL=0 THEN K=K-10 ELSE kK= 
qui permet de tirer des nombres au 90 next J FRET 
hasard compris entre O.,000001 et 200 For 3=1 TO 61 STEP 10 2REM GRADUATION AXE DES Y 


0.999999 inclus. Nous souhaite- 210 SET(13,J) 
rions vérifier dans quelle mesure ce 2 titre 
«hasard» correspond bien au Vrai 3,65 por y=1 to 41 £REM TRACE AXE DES Y 
hasard. 250 SET(14,Y) 


. 260 NEXT Y 
Dans ce but nous allons faire 355 &68 x=14 ro 114 


fonctionner la loterie BASIC correc- 230 SET(X,41) 

tion écran un grand nombre de fois 290 NExT x 

(10 000 par exemple). À chaque ti- 309 &=903 

rage, notre programme recher- 319 KONUEÉ GO sionen uen fREU VALEURS SUR AXES DES X 
chera dans quelle région de linter- 360  k=kes ï 

valle 0-1 se situe le nombre tiré. 350 next J 

Une fois les tirages terminés, ilen 360 FOR x=14 TO 114 STEP 10 {REM GRADUATIONS AXE DES X 
tracera l’histogramme. L'examen 179 Re ARENA 

docoluicinouspérmetra#beutétre Some due Le de tement 0 0. 
de déceler une « préférence » du gé- %00 REM TRACE DES PAVES DE L'HISTOGRAMME 

nérateur de nombres aléatoires, 410 FOR J=1 TO 10 


«auquel cas ces nombres ne sont 2° FOR Y=41 TO 41-Z(J) STEP -1 


A : : 430 FOR X=14 -1)* *10- 

peut-être pas tout à faitaléatoires». ,;, SR )*10 TO 14+J*10-1 
Pour cette application, nous de- 2 à eur x 

vrons modifier quelque peu notre ,;;, se & 


programme. La série des valeursest 4,30 1xpur 8r$ 
obtenue par la fonction RND (0) au 490 cLs 
lieu d'être lue en DATA par des 500 END 


READ. SLIOREN eee Se Sen ET EE 
D 1000 REM SOUS-PROGRAMME D'ACQUISITION DES VALEURS 


1005 REM CAS DE VALEURS EN DATA 


Structure du programme 1010 CLS 
1020 INPUT'NOMBRE DE VALEURS A ANALYSER !";NH 


. Lignes 40-45 : réservation des 1030 cLs 
tableaux nécessaires au pro- 1040 RESTORE 
gramme: tableau contenant les 1950 REA TC 
valeurs à analyser ettableau conte- :530 For N=2 TO 4 
nant le nombre de valeurs de cha- 1n0 READ VCN) {REM DETERMINATION MINI ET “AXI 


cun des dix créneaux. Iu90 “IF VÉNI <' A1 TAËN %1#YUN) 


1 ELSE IF V(N) > HA THE: = 
. Ligne 50: appel du Sous-pro- 1100 Next à ? A THEN MA=VCN) 
gramme d'acquisition des valeurs. 1110 RETURN 


1500 REM ==2=--==--"2 Dsl PANNE A CCE NET VERRE 

Le 2 ARE HaN TA Ion 3000 REM REDUCTION POUR ECUELLE LOG 

ICI, re es valeurs en ou en 3005 Z9=L0G(19) 1REM CONVERSION LOG NEPERIEN 
les calculer (par exemple à l'aide de 3010 For k=1 TO 10 :REA EN LOG DECIHAL 

la fonction RND). 3020 IF Z(K) <> 0 THEN Z(K)=INT(LOG(Z(K))*10/2Z9) 


3030 NEXT K 

3040 RETURN 

2000 BEM > ee SRE RL RSAPRE D CUS. PE 
5010 REM VALEURS EN DATA 

{*) Avec une échelle normale, représenter OL UnAre RRANS 6 97 DRE 256,57 250 te 5 es 00/07 PSU ER 55 76 
10. 100. 1 000, se feraparexemple avecdes ?°20 DATA 45,45,89,90,95,95,95,95,43,78,78,56,99,22,21 


lohgueürs 10, 100, 1 000. Avec une.échelle 5959 DATA,0,0.5,2,2,2,2,2,2,2,100%90 
lo MARQUES ce serait par exemple 20, 30, 5050 DATA 45,45,45,45,45 ,8#5,46,47,37,48,48,48,49 
4 


|, On économise donc de la place. CRIER CR RER EE RER DE TS RRE LEE ee 





88 L'Ordinateur Individuel 
Dossier Programmes n° 54 bis déc. 1983 








modifications à apporter à notre programme 
pour test du générateur de nombres aléatoires 


50 MI=U: HA=I LREM #K% 

60 IN=(tiA-11)/10 

65 Z(10)=1 

70 CLS:IRPUT'MOMBRE DE TIRAGES 

75 FOR N=1 TO Ni: PRINTE534, N 

80 Z=RND(C) 

90 FOR J=1 TO 19 

95 IF Z D= (41+(J-LDS#I1#) 
THEU Z(J)=2(J)+1:J=19 

119 NEXT J 

20 NEXT N 


VALEURS BEREREES PAR RANNOï *#%*# 
JS ORNE 

£REN TIRAGE AU SOKT 
AND, Z. QA(HI+J*I\) 


EEE + 


. Ligne 60 : calcul de l'intervalle 
entre deux divisions de l'axe des X. 


. Ligne 65 : cette ligne est néces- 
saire pour tenir compte de la borne 
supérieure de l'intervalle des 
valeurs : la valeur V{N) correspon- 
dant à MA = MI + 10*INn'estenef- 
fet pas prise en compte à la ligne 
90, et la ligne 65 y remédie. 


. Ligne 70-120: pour chaque 
valeur, recherche de son emplace- 
ment dans un des dix créneaux. 


. Lignes 125-140: recherche 
d'un créneau contenant plus de 40 
valeurs, Si l'on en trouve un, on 
passe en échelle logarithmique sur 
l'axe des y (indicateur EL). La réduc- 
tion est effectuée par l'appel du 


sous-programme situé en lignes 
3 000-3 040. 


. Ligne 150-380 : tracé des axes 
x et y, de leurs graduations et des 
valeurs correspondantes. Sur l'axe 
des y, deux types de graduations 
sont possibles (arithmétique et lo- 
garithmique). 


. Lignes 400-470 : pour chaque 
créneau, tracé d'un pavé dont la 
hauteur correspond au nombre de 
valeurs contenues dans ce créneau. 
Cette hauteur peut être éventuelle- 
ment corrigée pour tenir compte de 
l'échelle logarithmique. 


. Lignes 1 000-1 110: acquisi- 


tion des valeurs. Les valeurs sontici 
données en DAT. On détermine les 


bornes inférieure et supérieure de 
l'intervalle des valeurs. 


. Lignes 3 000-3 040 : réduction 
de la hauteur de chaque pavé dans 
le cas de l'utilisation d'une échelle 
logarithmique. 


. Lignes 5 010-5 050 : valeurs en 
DATA. 


Notre programme utilise cer- 
taines particularités du BASIC TRS- 
80. PRINT @ 100 écrit à partir du 
100€ caractère de l'écran, qui en 
comporte 16 X 64 — 1024. SET 
{(X,Y) allume sur l'écran un pavé si- 
tué à la ligne Y de la colonne X; X 
est compris entre O et 127,etYen- 
tre O et 47. Ces instructions PRINT 
@ et SET devront être remplacées 
par des PRINT simples ou des POKE 
judicieux pour que le programme 
fonctionne sur d'autres machines. 


Nous reproduisons deux histo- 
grammes obtenus successivement 
et portant chacun sur 10000 ti- 
rages. Seule la comparaison entre 
eux d'un grand nombre d'histo- 
grammes pourrait nous renseigner 
valablement sur le bon fonctionne- 
ment de notre loterie. 


oo 


Daniel Lucet 
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ete-même est lombde récemment, 


(e 
où 


n'en guére qu'à partir des années sapiante que 
HA Les premiers avant-postes ont cédé, La ciadele 


mutations sont en cours #ciuehement. 

M n'est gudre possible d'an faire ici un exposé 

exhausbt, Un ensmpie sultits à en donner une 
idée. ….ceui de la fabrcation d'un quotidien, 

Une twadnion. lmgement dustiée pm Île 

cinéma, résume le jownahsie à une personne 

génétaquement pressés, messacrant une vallle 











- 64 caractères par Ligne su 


- napidité (écrit en code machine) m 
- toutes Êes fonctions habitue££es: 
déplacement de Lignes et paragraphes, 
cement de mots ou groupes de mots,e4c... 

- manuel complet et instnuctions d'écran en français, 

[manue£ aussi Livnable en allemand et néer£andais) 

- programme d'apprentissage et d'entrainement Tasword Tuteur, 

_- utilise sans éntenface L'imprimante ZX, 

des interfaces et imprimantes profession- 
| Cobra RS 232 ilo pont, Eunoelectron£es 1X Paint, Kempaton, 

- Epson, Seikosha, Okä, Tandy, etc...) 


- compatible avec £a majorité 
nelles 
Hi£denbay, Monex, Tasman , etc... 


Nous recommandons et founnissons L'interface Tasman centronic, Program 
mée par Tasword Deux pour L'Epson FX-80 et Livrée avec programmes sut 
cassette pour Les Star et Tandy graphique cou£eux. 

L'adaptation pan L'utilisateur. 


Une notice détaillée permet 


Tasword Deux 60fs. Interface 150f.s. Les 2:2006s. 


envoyer à SEMAPHÔRE Logiciels, 


VENTE PAR CORRESPONDANCE : 





Je commande : 







ei 


Je vense Le montant de 


TASWORD DEUX 


LE TRAITEMENT DE TEXTE PROFESSIONNEL POUR SPECTRUM L&K, 


Adaptation française de Tasword Two maintenant disponible vous offre : 
- canactènes accentuês, cédilles,tnémas etc... 

L'écran et L'impréimante (idéal pauzr A4}, 
ais personnalisable, 


Tasword deux 


Tasman intenface 
F4. au CCP (ou chèque) 
de Jean-Pierre Candinaux à Genève. 
Je verse au compte C0-192.930.1 à £a Société de Banque 


justification commutab£e,insentions, 
formattage ex margination, remp£a- 


Jean-Pierre Candinaux 
CH 1283 La Plaine 
(Genève) Suisse, 


12,247 98 














machine à écrire posée sur un bureau envahi de 1 L 
(du ermières 1e Suisse à Genève. 
Contre remboursement [taxes en plus) 


Nom: prénom : 







trpogni 
bouciant tous les soirs son journal comme un 
scénariste so MEME. 

La r18 en piece des systhmes électroniques à 
tout bouleversé. Le journalists écrit som texte 
sue un terminal, fat son choix de dboéches par 









adresse : 






Nate. D ce roc cn 20 Téléphone : 
Pour toutes précisions sur la société ou le prodult présenté ci-dessus : Référence 110 du service-lecteurs (page 172) 
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Première parution : L'Ol n° 31 





graphiques 





tracé de courbes 


arabesques et entrelacs 





Votre ordinateur ou votre calculatrice scientifi- 
que peut évaluer de très nombreuses fonctions 
mathématiques. Si elles ne sont pas toutes 
préprogrammées, il ne tient qu'à vous de les 
obtenir au moyen d'un petit sous-programme. 
Les ordinateurs excellent dans l'art de traiter 
les nombres, mais ils ont aussi des fonctions 
graphiques. Autant dire qu'ils sont tout indi- 
qués pour tracer automatiquement les courbes 
représentant les fonctions. On peut, à volonté, 
leur demander de faire serpenter celle d'un 
sinus ou de visualiser la croissance exponen- 
tielle d’une population. Ne nous en privons pas. 





Si vous avez accès à un TRS 80 
modèle 1, 16 Ko, il vous suffit 
d'introduire ce programme BASIC 
pour obtenir la représentation gra- 
phique de toute fonction f(x). Bien 
entendu, nous vous faisons 
confiance pour adapter ce pro- 
gramme à votre ordinateur favori. 


Sans crayon 
sans gomme 
et... sans papier 


Vous vous souvenez sans doute 
d'énoncés du genre « soit la droite 
d'équation y = x-4 » ou « soit la 
parabole y = -x2 + 5 ». Si vous 
avez une grande habitude des 
fonctions, cela vous suffit, on peut 
même dire que vous « voyez » la 
droite ou la courbe. || en va de 
même pour le solfège : les virtuo- 
ses de la lecture musicale lisent la 
partition et l'entendent ! Mais ceux 


90 
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qui ne sont pas rompus à ce type 
d'exercices n'y entendent rien. 


Si vous êtes comme eux, vous 
ne savez pas, « à vue de nez », de 
quel côté la parabole est orientée, 
vous ne savez pas si la droite est 
croissante ou décroissante. Pour 
en avoir une idée, vous devez cal- 
culer quelques points de chaque 
fonction et les représenter sur une 
feuille de papier. 


Pourquoi votre ordinateur ne le 
ferait-il pas sur son écran ? || vous 


N 
x1,x2, y1, y2 


Gx, Gy 
Ax, AY 
a $ 


KR 


Nombre de fonctions 

Domaine de variation de xety(=f{[x]) 

Graduation des axes x et y 

Coordonnées de l'intersection des axes 

Contient la réponse à la question « arrêt ou non après 
chaque fonction? » 

Sont des compteurs 


suffira de définir les deux fonctions 
conformément au cadre du pro- 
gramme et de taper RUN. 


L'ordinateur vous demandera 
quelques précisions, telles que les 
valeurs extrêmes de x et de f{x) à 
représenter. La raison en est sim- 
ple: les dimensions de l'écran, 
comme celles de votre feuille de 
papier, sont finies. Autant indiquer 
tout de suite la portion de courbe 
qui vous intéresse. || est en effet 
inutile de représenter la fonction 
pour x = 100 si vous vous intéres- 
sez seulement aux valeurs proches 
de zéro. Pour les deux fonctions 
que nous avons retenues, explorez 
par exemple le domaine allant de 
T° +10 (tant pour x que pour f 

x |). 

Vous verrez d'abord apparaître 
une croix appelée système d'axes 
de coordonnées qui sert de repère. 
La droite qui apparaît ensuite re- 
présente la première fonction (y = 
x - 4) et vous verrez ensuite se 
dessiner une parabole définie par 
y = x +5. 

Le domaine de variation est indi- 
qué dans le coin inférieur gauche. 
La variable x est représentée sur 
l'axe horizontal et y (= f [ x ] } sur 
l'axe vertical. La graduation est la 
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L'Ordinateur 1e 


Dossier Programmes n° 54 bis 


EN 


DOMAINES D'APPLICATION 


- Architecture 
- Mécanique 

- Electronique 
- Topographie 
- Bâtiment 

- Publicité 

- Design 

- Imprimerie 


distance entre deux points noirs 
Sur l'un ou l'autre des axes de 
coordonnées. Ici, le point d'inter- 
section des deux axes correspond 
à zéro. 


Si vous désirez une autre gra- 
duation, rien de plus facile : vous 
pouvez agrandir une portion de 
l'écran afin de mieux voir l’une des 
intersections, par exemple celle si- 
tuée entre O et 4 pour x et O et -4 
pour f(x). Notez bien que les va- 
leurs positives sont toujours repré- 
sentées à droite de l'axe des or- 
données et au-dessus de celui des 
abscisses. 





Le graphique 
peut devenir 
esthétique 





Il est normal, après cet effet de 
« zoom » que vous ne reconnais- 
siez plus la parabole : vous n'en 
avez qu'un détail. 


En prenant une graduation de 
plus en plus fine, vous connaîtrez 
la position de l'intersection avec 
une précision de plus en plus 
grande. En fait, vous allez pouvoir 


résoudre graphiquement un sys- 


Naturellement, une fonction peut 


tème d'équations de la facon la être définie par morceaux : 


100 : IF x <—5 THEN F(1 
110:1IFx= -5 THENF{1 


= 

) = 

120 :IFx > -5 ANDx<2T 
E 


— 2 : GOTO 150 
2 : GOTO 150 
HEN F(1) = x 
LSE F(1) = 2 





plus commode possible. De la 
même façon, vous déterminerez 
graphiquement le zéro d'une fonc- 
tion, c'est-à-dire la valeur de la 
variable x pour laquelle la fonction 
est égale à zéro. 


Il arrive que la fonction ne soit 
pas toujours définie. Ainsi SOR (x) 
n'est définie que pour les valeurs 
positives de x. Si vous demandez 
la représentation graphique de x 
allant de -4 à +4, l'axe horizontal 
sera effacé jusqu'à ce que la fonc- 
tion soit définie. Vous compren- 
drez aisément en faisant quelques 
essais. 


Pour vous faire la main, regar- 
dez donc ABS (x), INT (x), SIN 
(x)}/x, SIN (3 * x) * EXP (-x/5), 
SOR (x * x * x + 3* x * x), etc. 


La représentation graphique 
s'inscrit dans un carré de 80 * 40 
correspondant aux positions hori- 
zontales 14 à 113 et aux positions 
verticales O à 39. 


Les différentes fonctions à re- 
présenter sont appelées aux sous- 
programmes 2100, 2200, 2300, 
2400 et 2500. 


Vous pouvez maintenant résou- 
dre graphiquement des systèmes 
de fonctions et il n’est pas impos- 
sible que le tracé des courbes ani- 
mées vous conduise à en recher- 
cher quelques-unes pour des 
raisons d'ordre esthétique. 


Jean-Paul Zanter 
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Logiciel de dessin assisté par ordinateur 
en deux dimensions. Le logiciel permet 
le tracé automatique à un pas et à une 
échelle donnée. Il possède un zoom de 
facteur 1 million, il permet l'entrée de 
données sur table à digitaliser et Touch 
jeu. Sortie sur table traçante ou fichier, 






À 


Pourquoi ne pas créer 

dans vos colonnes 
une nouvelle rubrique 
« algorithmes de tri »? 


En effet, d'une part 
de nombreuses 
applications 
informatiques 
nécessitent un tri, 

et d'autre part 

je pense qu'il est 

très difficile 

de trouver 

des algorithmes de tri 
efficaces pour un P.S.I. 
à langage interprété 
et disposant 
généralement 

de peu de mémoire ; 
si on n'y prend garde, 
on arrive facilement 
à des temps 
d'exécution de quinze 
minutes pour cent 
articles à trier, 

ce qui est 
évidemment excessif. 


Pour faire un début, 

je vous propose 

ci-joint 

le meilleur algorithme 
de tri que 

j'aie trouvé à ce jour. 
Temps d'exécution 

de l'ordre de une minute 


pour trier 100 chaînes - = 


de 50 caractères 
alphanumériques 
chacune 

sur un PET 2001 de 
Commodore. 

Je souhaite que 

votre revue suscite 
une confrontation 
d'idées qui permettrait 
certainement 

d'en trouver de 
meilleurs, sans qu'il 
soit nécessaire 

de descendre au niveau 
du langage machine. 





mettez 


de l'ordre 
dans vos données 


grâce à ce programme 
de tri par insertion * 


le ti par insertion est celui 
que fait un joueur de cartes 
classant 
son jeu. 






0 





DA 


Cd 
#4 
vut/0 







us Bi 
7 











Ce programme présente l'avan- 
tage de ne pas trier latable des don- 
nées de base T$, mais de ne travail- 
ler que sur la table de «pointeurs » 
A% (on appelle «pointeur» une 
variable dont la valeur désigne, 
«pointe vers», un élément). Ceci 
permet une plus grande rapidité 
d'exécution dans des cas bien pré- 
cis : utilisé comme sous-routine, il 
permet de trier des chaînes de ca- 
ractères relativement longues (plus 
de 5 caractères), mais il est préféra- 
ble d'utiliser une méthode directe 
(trier directement dans A$) si l'on 
veut traiter des chaînes de carac- 


tères courtes ou des nombres (*). 
C'est d’ailleurs la version « directe », 
sans pointeur, qui se trouve présen- 
tée dans la fiche pratique n° 11. 


(*) En fait, il semblerait que pour au moins 
tous les BASIC Microsoft, il soit préférable 
d'utiliser cette méthode dès qu'il s'agit de 
chaînes de caractères : ces BASIC «tassent» 
les chaînes de caractères, ce qui fait que 
chaque opération de chaîne entraîne systé- 
matiquement un «tassement». Travailler 
avec ce système de pointeurs minimise les 
transferts de chaînes, et par conséquent le 
temps passé à tasser. de 
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Première parution : L'OI n° 8 





Liste du programme en BASIC 


REM TRI D'UNE TABLE EN MEMOIRE CENTRALE 
REÏf PAR INSERTION DICHOTOMIQUE 

REM AUTEUR : PIERRE KELLER 

REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 
GOSUB 100:REM INITIALISATIONS 

GOSUB 200:REM IMPRESSION INITIALE 
PRINT''QUAND VOUS VOULEZ POUR LE TRI‘: 
GOSUB9 100 : PRINT'OK" 

GOSUB 400:REM TRI 

PRINT''VOILA... LA LISTE TRIÉE EST" 
GOSUB 5O0:REM IMPRESSION APRES LE TRI 
END 


REM INITIALISATIONS 
READN9 :REM NOMBRE DE MOTS DANS LA LISTE (MOINS UN) 
DATAGB 

DIM TS(N9) 

DIM AZ(N9):REM TABLEAU DES INDICES 

FOR J=OTON9 :READTS ( J) : NEXTJ 

REM LES N9+1 MOTS DE LA LISTE 

DATA CLR,DATA,DIM,END,FOR,GOSUB 

DATA GOTO, INPUT, INT, LET,LIST,NEW 

DATA NEXT,PRINT,READ ,REM, RETURN 

DATA RUN,SGN,SIN,SQR, STEP, STOP ,TAB 

DATA THEN,AND,CHRS ,LOAD ,COS, SAVE 

DATA EXP,LEFTS ,LEN,LOG ,MIDS ,OR, NOT 

DATA PEEK ,POKE ,RIGHTS ,SPC,STRS$ , TAN 

DATA TO,RND,VAL,WAIT,IF,ABS 

RETURN 


REM AFFICHAGE DES MOTS DE LA LISTE 
REM LA LISTE EST DANS TS(N9) 
FORJ2=0TON9 


AS=TS$S(J2)+ :REM ON AJOUTE 8 BLANCS DERRIÈRE LE MOT 


PRINT LEFTS(AS,8);:REM AVANT DE N'EN PRENDRE QUE LES 8 PREMIERS CARACTERES 


NEXTJ2 
PRINT 
RETURN 


REM TRI DE LA TABLE TS$(N9) DANS L'ORDRE CROISSANT 
CMETHODE PAR INSERTION DICHOTOMIQUE ET TABLE) 
FOR J4=0 TO N9:AX(J4)=J4 :NEXTJ4 
Zk=O:UX=1:DX=2: 
REM CONSTANTES ENTIERES POUR ALLER PLUS VITE 
IF N9=0 THEN 499 
NI=N9-1:IF TS(N9)<T$S(N1) THEN 
AR=AL(N9):AZ(N9)=AX(N1) :AXCN1)=AX 
IF N9=1 THEN 499 
FOR J4%=N9-2 TO ZX STEP -U% 
ABX=A%(J4%) : AS=TS(ABX) : 
IF AS<=TS(AX(J4%+U%)) THEN 480 
INFX=J4% : SUP4=N9+1 
K4%=(INF4+SUPX)/D4:IF AS<TS(AZ(K4%)) THEN SUPX=K4%:GOTO 455 
INF4=K4% 
IF SUPX-INFA>UX THEN 445 
KIX=INFX-UX:FOR K4%=J4% TO K1%:AZ%(K4%)=AZ(KSX+UL):NEXT K4X 
AXCINFZ)=ABX 
NEXT J4% 
RETURN 


REM LISTE DE LA TABLE T$ DANS L'ORDRE DONNE PAR 
LA TABLE A 

FOR J5=0 TO N9 

AS=TS(A%(J5))+!" ‘Es 

REM 8 BLANCS DERRIERE LE MOT 

PRINT LEFTS(AS,8);:REM 8 PREMIERS CARACTERES 
NEXT J5 
RETURN 


O REM SOUS-PROGRAMME D'ATTENTE * TRS 80 NIVEAU 2 
O AS=INKEYS:IF AS$='"" THEN 9110 
0 RETURN 


O0 REM SOUS-PROGRAMME D'ATTENTE * PET 
0 GET A$:1F A$='"'" THEN 9110 
O0 RETURN 


9100 REM SOUS-PROGRAMME D'ATTENTE GENERAL 
9110 INPUTAS 
9120 RETURN 
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Remarques sur le programme 


. Il faut faire deux sous-pro- 
grammes d'impression de la liste, 
un qui l'imprime dans l'ordre initial 
(lignes 200 à 299), l’autre qui im- 
prime la liste par l'intermédiaire des 
pointeurs (lignes 500-599). La liste 
est alors imprimée triée. 


. Le manuel d'utilisation du PET 
recommande, pour gagner du 
temps d'exécution, d'employer des 
variables plutôt que des constantes, 
et des variables entières (nom suivi 
de %) plutôt que des variables nor- 
males : ce qui explique la proliféra- 
tion de % dans les lignes 405 à 480, 
et l'utilisation de Z%, U%, D% à la 
place des constantes O, 1 et 2. Notez 
de même qu'à la ligne 445, comme 
K4% est entier, la division est une 
division «entière » (c'est-à-dire que 
6/2 donne 3 et 7/2 donne 3 égale- 
ment). 


. L'impression peut se faire par 
blocs de 8 caractères tout en don- 
nant une bonne présentation aussi 
bien sur le PET (lignes de 40 = 5X8 
caractères) que sur les autres sys- 
tèmes (lignes de 64 — 8X8 ou 80 — 
10X8 caractères). 


. L'ordre des mots en DATA a été 
changé à la ligne 185, afin d'éviter 
les cas particuliers que ne permet- 
tait pas de détecter le fait qu'on ter- 
mine par VAL et WAIT... qui sont 
également les derniers dans l'ordre 
alphabétique. 


. Notez la ligne 135, nécessaire 
puisqu'onutilise le tableau À % pen- 
dant le sous-programme de tri. 


. Le lecteur pourratester son pro- 
pre Sous-programme de tri en le 
mettant en 400 à 499, et l'utilisa- 
tion du sous-programme d'attente 
(9100-9120) permet de donner un 
«top chrono» bien pratique pour 
mesurer les performances du pro- 
gramme (sur des 48 + 1 — 49 
chaînes utilisées ici). Les versions 
de ce sous-programme pour le PET 
et le TRS-80 sont fournies. Les sys- 
tèmes ne disposant pas d'une com- 
mande de type GET (PET)ouINKEYS 
(TRS-80) pourront utiliser la troi- 
sième version, 


Enfin, signalons qu'il existe de 
nombreux ouvrages sur les tris, 
dont nous ne citerons que deux : 

. en français: G. Louït, «Algo- 
rithmes de tri», Dunod, Paris 1971, 
158 pages ; 

. en anglais: DE. Knuth, «The 
Art of Computer Programming », 
volume 3, «Sorting and Sear- 
ont », Addison-Wesley, Mass. 





Pierre Keller 
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Certaines données, 
provenant 

d'un traitement 

par ordinateur, 
doivent être 
transcrites, 

sans erreur 

ni perte de temps, 

en un seul ou plusieurs 
exemplaires, 

sur des enveloppes, 
des fichiers, 

des dossiers 

ou autres documents. 
La réalisation de 

ce travail, 
manuellement 

ou avec l'aide 

d'une machine à écrire, 
entraîne 

un gaspillage d'argent, 
une perte de temps 

et de gros risques 
d'erreurs. 

Et pourtant, 

toute entreprise, 
petite ou grande, 

est confrontée 

chaque jour 

à des problèmes 
d'organisation 

de ce genre. 

Des étiquettes 
autocollantes 

en formats standardisés, 
en rangées 

simples ou multiples, 
sont vendues 

dans le commerce 

et s'adaptent à 

la plupart des besoins. 
Un ordinateur 
individuel, 

équipé d'une imprimante 
et d'un BASIC étendu 
permettant 

le traitement 

des variables 
alphanumériques, 
fixera « quelque part » 
ces informations 

qu'il vient d'élaborer. 


= 





Simple. 


postage 


mais eficace 


‘imprimer 
des adresses 
sur étiquelies 





Chaque variable alphanumérique 
peut contenir habituellement jus- 
qu'à 255 caractères. 


Dans le BASIC Microsoft, l'ins- 
truction CLEAR n (n étant une 
constante ou une expression) ré- 
serve n octets de la mémoire cen- 
trale pour le stockage de l'ensemble 
des variables alphanumériques ; n 
doit être égal ou supérieur au nom- 
bre maximum de caractères à 
stocker pendant le travail. 


Remarque : en réservant le nom- 
bre exact d'octets, le programme 
gère efficacement la mémoire cen- 
trale de l'ordinateur; un pro- 
gramme n'utilisant pas d'alphanu- 
mériques devrait comprendre un 
CLEAR O afin de supprimer le 
« CLEAR 50 automatique » que le 
BASIC réserve dès sa mise en route. 


Le programme présenté iciutilise 
les fonctions suivantes : 
LEFTS$ (variable, n)quidonnelesn 


caractères de gauche d'une sé- 
quence de caractères (left-gauche); 


. RIGHTS (variable, n) qui donne les 
n caractères de droite d'une sé- 
quence de caractères (right-droite) ; 


. MID$ (variable, p, n,)qui donne les 
n caractères d'une séquence de ca- 
ractères dont le premier est le (p) 
ième. 





Un exemple 
d'application 
du programme 


Le programme suivant : 


10 A$ = « ADMINISTRATION » 
20 PRINT LEFTS (A$, 3) 

30 PRINT MIDS$ (A$, 3,4) 

40 PRINT RIGHTS (A$, 6) 


exécuté, donnerait : 


ADM 
MINI 
RATION 


L'instruction LPRINT TAB f{n) 
variables déplace le curseur ou la 
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Première parution : L'OI n° 9 


tête imprimante vers la position dé- (1 ) 
sirée (n) de la ligne, avant d'écrire 


les différentes iables: (n) ne 
RU ED Un 10 REM PROGRAMME D'IMPRESSION D'ETIQUETTES 


contenir, par exemple 64 carac- 30 RE“ COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 
tères pour écran vidéo et 132carac- #0 CLEAR 1200 

tères pour une imprimante. L'ins- 50 DATA "css ooseeeee63 Cars... 
truction TAB peut être utilisée plu- 100 FOR X=1 TO N 

sieurs fois après LPRINT. Sil'ondé- 110 READ A$, B$, C$ 





passe le nombre maximum de 120 LPRINT LEFIS(AS,25);: 
caractères d'une ligne, l'impression LPRINT TAB(26) LEFTS(BS,25);: 
s'effectuera sur les lignes sui- LPRINT TAB(52) LEFTS(CS,25) 
vantes, mais le bel alignement ris- 130  LPRINT "RUE"; MIDS(AS,26,19):: 
que de se trouver compromis | LPRINT TAB(26) "RUE'";MIDS(BS,26,19);: 
LPRINT TAB(52) "RUE";MIDS(CS,26,19) 
140 LPRINT RIGHTS(AS ,19);: 
. LPRINT TAB(26) RIGHTS(B$S,19);: 
Il faut définir LPRINT TAB(52) RIGHTS(C$,19) 
des zones 150 LPRINT" ";CHR$(10) 
d'information 160 NEXT X | 
170 END 





Supposons que l'on dispose de 
l'information à traiter en mémoire {2} Exemple de sortie d'étiquette 
centrale; pour cela, la mémoire 
centrale doit être vaste ou les infor- 
mations relativement peu nom- 
breuses. 





JEAN FRANCOIS ROBERT JACQUE 


Le traitement d’un DATA toujours 
le même nous oblige à définir les RUE DES PRES FLEURIS 2 ice 


zones d'information (ce qui s'ap- 1234 VILLE 
pelle «dessin de carte » dans letrai- 
tement par cartes perforées). Par 
exemple : 25 caractères pour le 





nom, 19 caractères pour la rue et NNNNNNNNNNNNNNNNANNNNNNNNRRRRRRRRRRRRRRRRRRRVVVVVUVVVVVVVVV UV UV 
pour la ville, comme sur la repré- Ë 
sentation ci-contre. Jean Robert du Pont 24 12345 Ville 





Chaque séquence devra respec- 
ter la disposition indiquée en {7}. 





La liste du programme 


1 FEM *kk PROGRAMME COMPLET DE TRAITEMENT SUR ETIQUETTES +%% 

2 FEM %+k AUTEUR : DANIEL NUESTENEERGHS vx 

3 REM #4kk COPYRIGHT L'ORDINATEUR INGIYIDLEL ET L'AUTEUR #%k% 

14 CLEAR 1244 

3@ INPUT'DESIREZ-VOUS ENREGISTRER UNE ADRESSE 1) OÙ LES IMPPIMER C2)": A 

21 ON À GOTO 44,24 

49 INPUT'OESIREZ-YVOUS ENREGISTRER LINE ADRESSE €1)0UI-€22NON"; E:ON & GOTO 41, 14 

44 PRINT "MOT DE PASSE POUR DERNIERE ADRESSE = “FIN°":PRINT TABG22"X", TABCZ7)"X", TABC46) MX", TABCEE)"X" 
42 PRINT'NOM ET PRENOM EN 25 CARACTEPES, RUE ET N# EN 19 CARACTERES, CODE FOSTAL ET LOCRLITE EN 13 CARACTERE S “ 
42 INPUT A$:FRINT'MINI K7 EN POSITION D'ENREGISTREMENT 5. V. P. ":FRINT#-1,A$ 

44 GOTQ 44 

45 END 

S@ PRINT'METTRE LE MINI K7 EN POSITION DE REPRODUCTION : PLAY": INPUT"COMEIEN D'ADRESSES VOULEZ-VOUS LISTER"; C 
85 FOF K=1 TO INTÉL/2) #1 

94 INPUT#-1, A$: 1FA$="FIN"THENSTOP 

95 INPUT#-1, B$:IFB$="FIN" THENESANDC$=" "AND, GOTO 124 

188 INPLT#-1.C$:1F C$="FIN" THENC$YAL" " AND GOTO 128 

426 LPRINT LEFT$(A$; 25: :LPRINT TRBGZÉ)LEFTS(BS, 25): :LPRINTTABCS2)LEFT#(C$, 25) 

434 LPRINT'RUE ": :LPRINT MID$CAS, 26,19); :LPRINTTAB(26) "RUE "5; :LPRINTMIDSCES, 26, 19); 

425 LPRINTTRR(SZ) "RUE ; :LPRINTMID$(CS, 26, 19) 

144 LPRINT RIGHTSCRE, 193: : LPRINTTARC26)RIGHTSCBS. 19): .LPRINTTABCS2 RIGHTS (CS, 19) 

154 LPRINT" "; :LPRINT CHR$(18) 

174 NEXTX 

164 END 
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dl 





L'instruction 40 réserve 1200 oc- 
tets pour les variables alphanuméri- 
ques : 1200 est ici donné ätitre indi- 
catif. 


La /igne 50 est une ligne DATA 
type de 63 caractères correspon- 
dant à une zone d'information. No- 
tez que les données sont comprises 
entre ‘pour que les blancs et les vir- 
gules soient interprétés normale- 
ment. || suffit d'en mettre autant 
que de données à traiter. 


A la ligne 100, N doit être rem- 
placé par le nombre de données à 
traiter, divisé par trois : par exem- 
ple, pour 120 étiquettes, il faut 120 
lignes DATA et N = 120/3 — 40. 


La boucle 100 à 160 sera exécu- 
tée N fois. 


La /igne 110 ordonne la lecture 
des trois premières DATA, ensuite 
des trois suivantes, jusqu'à épuise- 
ment des lignes DATA. 


Les lignes 120, 130, 135 et 140 
traitent et impriment chaque don- 
née. À la ligne 120, les 25 carac- 
tères de gauche de la variable A$ 
sont imprimés en début de ligne, 
ceux de B$ sontimprimés à partir de 





la position 26 et ceux de C$ à partir 
de la position 52. A la ligne 130, les 
19 caractères à partir du 26° de la 
variable A$ sont imprimés sur la se- 
conde ligne, ceux de B$ sont impri- 
més à partir de la position 26 et de 
C$ à partir de la position 52, l'ordre 
en étant donné à la ligne 135. 


A la ligne 140, les 19 caractères 
de droite de la variable A$ sont im- 
primés sur la troisième ligne, ceux 
de B$ sont imprimés à partir de la 
position 26 et de C$ à partir de la po- 
sition 52. 





Une augmentation 
de la puissance 
du programme 





Ce programme est intéressanten 
soi mais d’exploitation peu pratique. 
En effet, la mémoire centrale de 
l'ordinateur ne pourra contenir la 
liste complète des clients, des pro- 
duits, etc, avec les adresses, réfé- 
rences.. Il vaut mieux stocker les in- 
formations de base sur bande ma- 
gnétique et les extraire une à une 
pour les traiter, c'est-à-dire «sortir 


des étiquettes », ce que permet le 
programme suivant. (NB : à la ligne 
41, les X sont affichés sur écran 
vidéo pour guider l'opérateur lors- 
qu'il écrit une séquence alphanu- 
mérique). 


Ce programme permet {7} l'enre- 
gistrement des données et /2) leur 
reproduction à partir d'un cassetto- 
phone. Le choix est fait à la ligne 30. 
La ligne 31 guide l'ordinateur vers 
la ligne 40 (enregistrer) ou la ligne 
80 (reproduire). Ce programme 
contient deux sous-programmes 
(40-45 et 80-180). Remarquez à la 
ligne 43 le PRINT # -1 qui demande 
l'enregistrement par le mini K7 n°1 
et à la ligne 90 le /NPUT # -1 qui de- 
mande la lecture de A$ par le mini 
K7 n° 1. Il faut évidemment que 
l'enregistreur soit en bonne posi- 
tion | 

Ce programme demande des 
aménagements si vous voulez trai- 
ter plus de 3 mentions où si vous dé- 
sirez en régler la longueur (ici 25, 19 
et 19 caractères). L'adaptation sur 
disquette ou minidisquette devrait 
être un jeu d'enfant pour le lecteur. 





Daniel Wuestenberghs 











SET vos albums de 


en 


\ELX 


MY 
a 


€, 


es numeros de L'ORDINATEUR DE POCHE sont 
regroupes par cinq dans des albums. Vous 
' trouvez les numeros 1 à 5 dans l'album n°1 


les numeros 6 a 10 dans l'album n° 2, etc. 
Pour disposer de L'O.P. dans un format 
agreable et bien adapte a son classement 
dans votre bibliotheque, commandez 
aujourd'hui meme vos albums a l'aide 
du bulletin ci-dessous. 





BULLETIN DE COMMANDE à retourner à 


L'ORDINATEUR DE POCHE, service albums, 39 rue de la Grange aux Belles, 75484 Paris Cedex 10 











Nom Prénom 
Adresse 
Pays . Code postal Ville 








Veuillez me faire parvenir le(s) album(s) suivant(s) 


(cochez le(s) numéro(s) choisi(s). | ALBUM N°1 \5.40 ALBUM N° 2 | ALBUM N°3 Le sn | 


Ci-joint mon règlement (prix d'un album frais d'envoi inclus. 58 FF ; Belgique 500 FB ; Suisse 18:FS ; Etranger 75 FF] 
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Première parution : L'OI n° 14 





urgent 





af. exception. : 


données à saisir 


par prog. spécialisé et prat. 





Lors de la création d'un fichier de données, que ce soit sur un gros 
ou un petit ordinateur, il faut trouver un moyen d'introduire dans 
la machine les différents éléments constituant ce fichier, et cela 
le plus commodément possible. Dans le cas des ordinateurs indi- 
viduels, cette saisie s'effectue en « temps réel » c'est-à-dire direc- 
tement au clavier, les renseignements étant immédiatement pris 
en compte. Cela peut présenter un certain danger : il convient de 
ne pas enregistrer des données erronées ! Une méthode de saisie 
doit assurer une certaine sécurité sur ce point en permettant à l'o- 
pérateur (qui n’est que rarement informaticien) de toujours pou- 
voir rattraper ses erreurs. La facilité et la rapidité de travail sont 
également des critères importants. Nous vous proposons un sys- 
tème de saisie qui tient compte de ces divers facteurs. 





Pour chaque zone d'un enregis- masque. Le type de la zone nous 


trement, le système doit interroger 
l'opérateur pour connaître la valeur 
à affecter à cette zone. Pour ce 
faire, lui et l'opérateur utilisent un 
langage commun de désignation 
dont les mots sont les libellés des 
zones. || y aura autant de libellés 
que de zones différentes dans l'en- 
registrement. Il est très pratique de 
visualiser sur une même image d'é- 
cran l'ensemble de ces libellés, 
chacun étant suivi d'un certain 
nombre d'espaces que l'opérateur 
remplira à partir du clavier. Cet im- 
primé ou «masque » sera le reflet 
exact de la structure du fichier. La 
disposition des libellés dans le mas- 
que relève d'un critère de lisibilité. 
D'où l'idée de faire correspondre à 
un fichier donné une table conte- 
nant les libellés des zones (Table 
NZ$). Une autre table donnera, pour 
Chacune des zones, la position du 
début de son libellé à l'écran (coor- 
données X.Y. stockées dans les ta- 
bles XX et YY par exemple). 


Dans le fichier, chaque zone est 
caractérisée par son type (numéri- 
que, alphabétique ou les deux mé- 
langés) et sa longueur. La connais- 
sance de sa longueur nous permet- 
tra d'allouer le nombre d'espaces 
nécessaires après chaque libellé du 
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conduira à faire un contrôle des 


‘données, caractère par caractère au 


fur et à mesure de leur introduction 


(4 
ABLE YY 
(ORDONNÉES) 


2 
L 
£ 


ABLE LZ TABLETZ. 
(Lonqueurs) (TYPES) 


TABLE NZ 
(LIBELLES) 


et à refuser les caractères non 
conformes (contrôle de numéricité). 
Nous serons donc amenés à créer 
deux tables supplémentaires : la ta- 
ble des longueurs (dénommée LZ 
par exemple) contenant la longueur 
de chaque zone, et celle des types 
indiquant le type de chacune (de 
nom TZ par exemple). Pour rappeler 
à l'opérateur quel type de zoneildoit 
introduire, nous pourrons rempla- 
cer les espaces qui suivent les libel- 
lés par des «. » (zones alphanuméri- 
ques) et des «-» (zones numéri- 
ques). 

Lors de la saisie des informa- 
tions, l'opérateur positionnera le 
curseur après chaque libellé et frap- 
pera la valeur des zones. 

Il est pratique qu'après l'introduc- 


manette bre 
SNS LE 


TABLE XX 
(ABGSSES) 


À Prenom; | 


ANNEE NAISS: 


TABLE RE 
(VALEURS SAISIES) 


Principes de la saisie et tables utilisées 








REM *#%% SAISIE D'ECRAN SUR TRS-80 #x** 

REM AUTEUR: J. BOISGONTIER 

REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 
POKE 16553,255 :REM **x SPECIAL TRS-80 *** 
CLEAR 500 


GOSUB 1000 { RESERVATIONS ET INITIALISATIONS 
GOSUB 100 £REM *kw S À I S I E *** 


*kkk SOUS PROGRAMME DE SAISIE *** 
AFFICHAGE DU MASQUE 
FOR I=1 TO NZ 
XY=YY(L)*64+XX(I) 2REM CONVERSION X ET Y EN COORDONNEE @ 
PRINTEXY,NZS(I);" &!'; 
ON TZ(I) GOSUB 500,570 :REM CHOIX DU REMPLISSAGE DES ESPACES 
NEXT I 
1=]:CH$="" :REM REMPLISSAGE DES ZONES 
LG=LEN(NZ$(1)) 
XY=YY(1)*64+XX(1)+LG+2 
SET((XX(I)+LG+1)#2,YY(1)*3) :REM POSITIONNEMENT DU CURSEUR 
PRINT@XY , ">"; 
KS=INKEYS: IF XS="" THEN 220 
IF ASC(XS) = 13 THEN IF CH$="" THEN 320 ELSE 300 
IF ASC(X$) = 8 THEN 


IF CH$="" THEN IF I=l THEN 220 ELSE RESET((XX(1)+LG+1)*2,YY(I)x3): 


1=1-1:GOT0 180 

ELSE CH$=LEFTS(CH$ ,LEN(CH$)-1):PRINT X$;:GOTO 220 
ON TZ(I) GOSUB 3000,3050 : :REM VERIFICATION DU TYPE 
IF Q=2 THEN 220 :REM ERREUR SI TYPE NON CONFORME 


CHS=CHS+XS :REM CUMUL DANS ZONE 

PRINT XS; :REM AFFICHAGE CARACTERE 

IF LEN(CH$)<LZ(I) THEN 220 :REM ENCORE DES CARACTERES A LIRE 
RES(1)=CHS 

CH$="" 

IF ICNZ THEN RESET((XX(1)+LG+1)*2,YY(1)*3): I=l+1: GOTO 180 


REM mms se 
REM INDICATEURS VISUELS DES TYPES DE ZONES ... 
REM ALPHANUMERIQUES 
FOR K=1 TO LZ(1) 
PRI NT"! # “ ; 
NEXT K 
RETURN 
REM NUMERIQUES 
FOR K=1 TO LZ(I) 
PRINT"-"; 


REM ACQUISITION DU MASQUE 
RESTORE 
READ NZ 
DIM NZSCNZ) ,XXCNZ) ,YY(NZ) ,LZ(NZ) ,TZ(NZ) ,RECNZ) 
FOR I=1 TO NZ 
READ NZS(1) 
NEXT I 
FOR I=1 TO NZ 
READ XX(I) :REM LECTURE DES ABSCISSES 
NEXT 1 
FOR 1=1 TO NZ 
READ YY(1) :REM LECTURE DES ORDONNEES 
NEXT 1 
FOR I=1 TO NZ 
READ LZ(I) :REM LECTURE DES LONGUEURS 
NEXT I 
FOR I=1 TO NZ 
READ TZ(1) £REM LECTURE DES TYPES 


:REM LECTURE DES LIBELLES 


REM TESTS SUIVANT TYPES DES ZONES ... 

REM ALPHANUMERIQUES 

IF ASC(X$) < 32 THEN Q=2 ELSE Q=1 

RETURN 

REM NUMERIQUE 

IF ASC(XS) € 48 OR ASC(XS) > 57 THEN Q=2 ELSE Q=1 


REM DESCRIPTION DU MASQUE 

REM NOMBRE DE ZONES 

DATA 5 

REM LIBELLES 

DATA NOM,PRENOM, RUE, VILLE, CPOST 
REM ABSCISSES 

DATA 10, 20, 20, 10 
REM ORDONNEES 

DATA 5, 1, 11, 

REM LONGUEURS 

DATA 30, 

REM TYPES 

DATA 1, 1 








tion d'une zone (terminée parunre- 
tour chariot par exemple), le curseur 
saute automatiquement au début de 
la zone suivante. || est également 
utile, au moment de la saisie, de 
pouvoir revenir sur des zones ar- 
rières où des erreurs de saisie 
auraient été commises. Cette fonc- 
tion peut être réalisée par la pres- 
sion de la touche curseur gauche. 
Voici l'organigramme donnant 
les différents étages de notre sai- 


TRAITEMENT 
DE LA 
EME ZONE 


Traitement flèche gauche 
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sie. Le programme principal affiche 
tout d'abord le masque qui décrit 
l'enregistrement à saisir. Puis il 
réalise une boucle exécutée autant 
de fois qu'il y a de zones dans le fi- 
chier. 

Pour chacune d'entre elles on ef- 
fectue les opérations suivantes : 


— positionnement du curseur 
après le libellé de cette zone. 


— chaque caractère est saisie au 
vol par balayage du clavier. 

Le retour au caractère précédent 
s'effectue par l'emploi du curseur 
gauche. Si on utilise ce curseur en 
début de zone, on revient à la zone 
précédente (sauf si on se trouvait 
positionné sur la première zone !) 
chaque caractère est soumis à un 
test qui dépend du type de la zone. 
S'il est erroné, il n'est pas pris en 
considération. Sinon il est affiché à 
l'écran et ajouté à une zone de cu- 
mul. Lorsqu'on a rentré assez de ca- 
ractères pour remplir la zone, il y a 
saut automatique à la zone sui- 
vante. Le saut peut être également 
provoqué par l'introduction d'un re- 
tour chariot. 

Une fois saisie, la valeur de cha- 
que zone est stockée dans un ta- 
bleau. 

Les principes que nous venons 
d'énoncer servent à réaliser un pro- 


gramme de saisie. Nous l'avons 
écrit sur un TRS 80 et en donnons 
ci-dessous la liste intégrale. 

Ce programme utilise certaines 
particularité du BASIC niveau 2. La 
Saisie des caractères s'effectue au 
moyen de la fonction INKEY$. L'af- 
fichage en un point de l'écran est 
réalisé avec PRINTC. Cette dernière 
fonction n'utilisant qu'une coordon- 
née, il est nécessaire de convertir 
les valeurs (X, Y)en une seule valeur 
XY (ligne 190). La zone en cours de 
saisie est pointée par un caractère 
graphique affiché par l'instruction 
SET. Au passage à une autre zone, il 
est éteint par RESET. 

Au début du programme, la des- 
cription du masque est fournie par 
des données situées en DATA 
(lignes 5 000 à 5 050). Puis on exé- 
cute le sous-programme de saisie. 
A noter qu'il doit normalement être 
suivi d'un sous programme d'enre- 
gistrement sur mini-disquette ou 
sur cassette. 

Le sous-programme affiche tout 
d'abord le masque (lignes 100 à 
160). Puis les zones sont remplies 
avec les possibilités de correction 
d'erreurs et de contrôle de validité 
déjà évoquées (lignes 170 à 330). 
Chaque fois qu'une zone est rem- 
plie, elle est stockée dans un ta- 
bleau (ligne 300). 


- Votre micro-ordinateur 
a besoin 






le spécialiste des logiciels 
de jeux... du sérieux... des extensions 


Pour recevoir notre documentation, [ 





précisez votre matériel, découpez | M 
et renvoyez cette annonce | HE : 
de. | Adresse: 5 (El 
| su 
| fi 
RUN rrormarique | 
62,rue Gérard, 75013 PARIS | 
Tél. : 1 581.51.44 | 
L 1283 | Matériel 
ce cppae DOREG ARC GA CONS SUN SRE PS FEU HR DEN MES CAE GR PRE OURS AP COS SENS PEU CRT 
Référence 113 du service-lecteurs (page 172) 
L'Orai i 
100 nd neue ver ARS déc. 1983 


pyc publicité 
MN CR CERN 












RS RS CR CR DS OUEN CUS CONS MON MUR DR (RUN SG GOT SOI ARS CR CRD Ci Cu oO ns dm CE 


Dans notre programme, les ca- 
ractéristiques du masques sont 
stockées en DATA. II serait intéres- 
sant de réaliser un programme pour 
créer ce masque. Par exemple on 
pourrait dessiner à l'écran l'image 
du masque telle qu'elle est affichée 
au début de notre programme ; puis, 
à partir de cette image, remplir les 
tableaux descriptifs du masque. En 
allant plus loin, un nom pourrait être 
affecté à chaque masque et sa des- 
cription stockée sur mini-dis- 
quettes. Lors de l'utilisation d'un fi- 
chier il serait ainsi possible de char- 
ger en mémoire le masque qui lui 
est associé. (D'ailleurs plusieurs 
masques pourraient être associés à 
un même fichier). 


La méthode de saisie que nous 
venons d'exposer devrait rendre de 
grands services pour les applica- 
tions de gestion. Elle est facilement 
adaptable à d'autres ordinateursin- 
dividuels. Il suffit pour cela de modi- 
fier les parties du programme qui 
réalisent le calcul de la position des 
zones à l'écran et leuraffichage sui- 
vant le mode d'adressage dont on 
dispose. 


Jacques Boïisgontier 








SINCLAIR : ZX 81 - Spectrum 
Extensions MEMOTECH 16-32-64 K 
HAUTE RÉSOLUTION-PROGRAMMES, etc... 


ORIC :16K-48K 
COULEUR - SON - HAUTE RÉSOLUTION. 


EPSON : HX20:16K-32K 
ORDINATEUR PORTATIF AUTONOME. 


VICTOR, CASIO etc. 








COMPTABILITÉ - STOCK 


PROGRAMMES SUR MESURE... 


nous consulter ! 


MICRO-INFORTIATIQUE 


70, rue du Barbâtre-REIMS 


Référence 112 du service-lecteurs (page 172) 











faites varier la longueur de vos enregistrements 
DOUr gagner 
de la place et du temps 





L'enregistrement d'un fichier de données pose des pro- 
—… blèmes liés aux temps d'accès et, notamment avec les cas- 
settes, à la fiabilité de l'enregistrement. Ce dernier point 
nécessite souvent une modification du matériel. Le pre- 
mier, par contre, peut être résolu par programme. Eneffet, 
la manière dont les informations sont lues ou écrites fait 
varier considérablement la rapidité d'exécution des opéra- 


tions. 





Le problème des fichiers, de leur 
création et de leur exploitation, est 
fondamental pour les utilisations 
professionnelles d'un ordinateur 
individuel. Le problème a été sou- 
levé dans l'article « Utilisations pro- 
fessionnelles : est-ce seulement un 
problème de matériel» de Thérèse 
Rieul (*). 

Nous envisageons d'expliquer ici 
le choix de l'enregistrement à lon- 
gueurs variables, d'entrer dans la 

technique de base, de définir un 
—sous-programme d'écriture et un 
…sous-programme de lecture des en- 
registrements de ce type, et enfin 
d'appliquer ceci à la création de fi- 
“chiers d'adresses permettant les 
transferts sur étiquettes auto-col- 
lantes (* *). 

Signalons que l'enregistrement 
Ci-dessous est appelé article ; il fait 
partie du fichier-adresses (com- 
posé de tous les articles). L'article 
adresse-complète est subdivisé en : 

. une rubrique NOM (la rubrique 
est un ensemble à signification pré- 
cise, le nom d'une personne ici !); 

. une rubrique : prénom, adresse, 
numéro et localité. 


La rubrique est subdivisée en 
mots, ensemble de caractères (let- 
tres, chiffres ou signes) qui consti- 
tuent la plus petite unité d'informa- 
tion exploitable par l'homme). 


Par exemple : avenue des Tilleuls 
est la 3° rubrique de l'article X du fi- 
Chier-adresses : cette rubrique est 


(*) L'Ordinateur Individuel n° 8, p. 24-28. 
{**) voir page 95. 


à 





composée de 3 mots dont le premier 
(Avenue) est composé de 6 carac- 
tères alphabétiques. 

Remarques: une information 
peut être représentée par un carac- 
tère alphabétique (AVENUE), numé- 
rique (887,75) ou alphanumérique 
(EDITEST 230589 F). (*}. 

Une chaîne de caractères étant 
constituée au maximum de 255 (**) 
caractères, il s’agit d'exploiter au 
maximum la longueur disponible. 
L'espace étant considéré commeun 
caractère blanc, il faut limiter les 
espacements entre données. C'est 
pourquoi il est préférable de repré- 
senter l'enregistrement (1): 


{2} Nous pouvons dire que la re- 
présentation (2) permet l'enregis- 
trement de rubriques de longueurs 
quelconques (sans avoir à se préoc- 
cuper de la longueur du dessin de 
zone |}. Il y a utilisation optimale de 
la mémoire de l'ordinateur et l'enre- 
gistrement sur un support magnéti- 
que ne demande qu'un minimum 
d'espaces arrêt-marche (on appelle 
espace arrêt-marche l'espace vide 
entre deux blocs successifs, en an- 
glais gap = trou). 


Lorsque les enregistrements sont 
courts et que la machine autorise 
des blocs d'une longueur supérieure 
(255 caractères), on a presque tou- 
jours intérêt à grouper plusieurs en- 
registrements par bloc, de manière 
à économiser de la place sur la 
bande magnétique, et à augmenter 
la vitesse d'exploitation. 


En effet, un espace arrêt-marche 
dure un certain temps, fixe, par 
exemple 1 seconde. Si l'on a sur la 
bande 2 secondes de données, 1 se- 
conde d'arrêt marche, 2 secondes 





NOM, 0000000 0 » e PRENOM neo 0 00 RUE soso see Nes LOCALITE. 0 0 « 


par l'enregistrement (2): 
NOM*PRENOM*RUE*N#*LOCALITE 


En effet, deux avantages peuvent 
être dégagés. 


{1} Le deuxième enregistrement 
est plus court car le DESSIN DE 
ZONES doit réserver plus d'empla- 
cements-caractères que la /on- 
gueur moyenne des rubriques (nom, 
prénom, rue, n°et localité). S'ilne le 
fait pas, il y a des risques de tron- 
quer un nom plus long ou une loca- 
lité plus longue que la moyenne. 





de données, etc., on va 2 fois plus 
vite que si l’on a 1/2 seconde de 
donnée, 1 seconde d'arrêt marche, 
1/2 seconde de donnée, etc. Tout 
au moins bien sûr lorsque le temps 
de traitement de l'unité centrale est 
faible par rapport à la durée d'une 
lecture sur fichier magnétique — 
cassette ou disquette —, ce qui est 
le plus souvent le cas. 


Une marque de rubrique est un 
caractère alphanumérique utilisé 
comme séparateur des rubriques 
d'un article. Nous ne considèrerons 
que des articles composés d'un 


Eufufefs[r[efn[s [er] cs 


Exemple : dessin de zone « NOM » 
avec 10 positions (la moyenne ac- 
cordée); un nom de-13 lettres est 
évidemment tronqué. 





{*) Ça. c'est le télex de l'O. 


(**) Sur la plupart des BASIC des PSI habi- 


tuels. 
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Première parution : L'Ol n° 13 


même nombre de rubriques. Les 
mots d'une rubrique ne sont « sépa- 
rés » que par la marque ‘blanc’ ou 
‘espace. 


gueur du bloc (A2). Si le cumul de 
ces deux longueurs dépasse 255 ca- 
ractères, il n'y a pas addition des 
deux séquences mais enregistre- 


2 ——————— — ——————— ———— 


110 DATA PAUL 
120 DATA PIERRE 


EMILE 
MICHEL 


RUE DE LA GARE 
HAMEAU 9 


123 76543 VILLE 
98765 VILLAGE 


marque de mot = espaæ 


150 DATA PAUGLAEMT LEXRUE DE Va carex 23476543 ILLE 


160 DATA PIERRE*MICHELY*HAMEAU*9#98765 VILLAGE 


marque de rubrique : askHérisque 





Comment le programme peut-il 
ordonner le traitement de ces 
chaînes de caractères ? 


Une telle méthode de groupage 
des articles est pour l'homme diffi- 
cile, tant à écrire qu'à déchiffrer. Il 
s'ensuit que les données de base 
sont représentées sur des grilles 
prévoyant l'information d'encom- 
brement maximum. Ce n'est qu'à 
l'entrée des données dans l'ordina- 
teur qu'un sous-programme spécial 
éliminera les zones non-employés : 
c'est le programme de condensa- 
tion dont l'objet est d'augmenter la 
densité de l'information rangée en 
mémoire. Cf ci-dessous (*). 





ment du bloc tel qu'il est (PRINT — # 
1,5) et le nouveau bloc S est initia- 
lisé à la valeur du dernier article S1 
(ELSE de l'instruction 1100). Les 
instructions 1110 à 1130 permet- 
tent de retourner au programme- 
maître si SO = C, sans quoi l'écri- 
ture des articles continue (GOTO 
1030). 


Inversement, lorsqu'il faut impri- 
mer le contenu de ce fichier- 
adresses, un sous-programme de 
décondensation rétablira la mise en 
page initiale, en analysant les diffé- 
rents blocs pour les décondenser en 
articles (les marques d'articles sont 
bien utiles à ce moment-là, et, re- 


————_—_—_—_—_—_—_—_———_————_———————————— 


1 CLEAR 1000 : DEFINT A : DEFSTR L-S 


2 GOSUB 1000 
3 PRINT "FIN!" 
4 END 


1000 


REM %#%% SOUS PROGRAMME DE CONDENSATION *** 


1010 REM *** COPYRIGHT WUESTENBERGHS DANIEL *** 
1020 REM *** ET L'ORDINATEUR INDIVIDUEL *** 
1030 INPUT ‘NOM :" ; NM 

1040 INPUT PRENOM :" ; PR 

1050 INPUT "RUE, AVENUE, BOULEVARD ,... 1" 3 R 
1060 INPUT "NUMERO DE L'IMMEUBLE :" ; NO 

1070 INPUT "LOCALITE :" ; LO 

1080 SI=NM+ RE PRE UAERE RTE NO+ el LO+!"xx!! 


1090 AI=LEN(S1) 
1100 


1110 


: A2=LEN(S) 
IF Al+A2<255 THEN S=S+S1 ELSE PRINT#-1,S : 
INPUT "TAPEZ '@' LORSQUE VOUS AVEZ 


S=S1 


TÉRMINE LA SAISIE DES ADRESSES" ; SO 


1120 IF SO="@" THEN PRINT#-1,S : 


1130 GOTO 1030 


RETURN 


LA PM 2 à LCL AE PER ERMO JPSE RER RUES PACE ERREUR EEE GS 
connues par la machine, elles per- 


Le programme ci-dessus utilise la 
routine de condensation. L'instruc- 
tion 1080 compose l'article 
condensé : en 1090, la lorigueur de 
l'article est calculée ainsi que la lon- 


{(*) Tous les programmes sont donnés ici 
pour un TRS 80 niveau Il utilisant une cas- 
sette. 

@ CLEAR 1 000 : réserve 1 000 caractères 
pour les chaînes. 

© DEFINT À : tout nom de variable commen- 
çant par À désigne une variable de type en- 
tier. 

DEFSTR L.S : tout nom de variable, commen- 
çcant par LM.S désigne une variable de 
PRINT - 1 : écrire sur la cassette. 
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mettront la séparation des articles) 
et en rubriques (les marques de ru- 
briques, permettront la même pro- 
cédure). Il suffira de cadrer le 
contenu des rubriques dans le des- 
sin d'imprimé choisi. 

Voici (p.47)}une routine de décon- 
densation-lecture des blocs. Le pro- 
gramme est composé de 3 grandes 
parties (voir les REM). 


(1) Lecture de la chaîne de carac- 
tères condensés ou bloc d'enregis- 
trement sur cassette (ou en DATA, 


ou sur disquette, en changeant 
l'instruction 1211) (lignes 1000 à 
1030). 


{2} Lecture des articles de la 
chaîne (instruction 1040 à 1210). 
Nous utilisons la fonction MID$ 
(variable, p,n) qui donne les n carac- 
tères d'une chaîne dont le premier 
caractère est le (p}ième de la chaîne 
originelle. 


(3) Lecture des rubriques de cha- 
que article (il s'agit en fait d'un 
sous-programme du (2) ci-dessus — 
instructions 2000 à 2110). 


Remarque. comme les blocs ne 
sont pas nécessairement de 255 
caractères, la longueur du bloc doit 
être calculée par l'instruction LEN 
(bloc) ; la boucle ne lira donc que les 
(LEN (bloc) premiers caractères 
{instructions 1050 et 2020). 


De l'instruction 1340 à l'instruc- 
tion 1400, l'article appelé M1 est 
balayé en lecture afin de déceler la 
présence d'un astérisque. Suppo- 
sons que le 8° caractère en soit un; 
nous aurons donc : 

MIDS (M1, 8,1) ="*" 

Y4 = 8-1 = 

R = MID (M1, 1,7) 

ce qui signifie que la variable R cor- 
respondra à la partie de M1 partant 
du 1% caractère jusqu'au 7°. Et 
Y3=7 + 2 = 9 car si la 12e rubrique 
est terminée au 7° caractère, le 8° 
étant la marque, la lecture ne doit 
reprendre qu'au 9 | 


Exemple d'exécution 
Si la variable alphanumérique en- 
trée (INPUT K7) est : 







PAUL*EMILE*RUE DE LA GARE*123*45678 





soit 5 adresses condensées. 


La décondensation de ce bloc 
donnera, après décondensation ; 5 
articles de 5 rubriques. 


Remarques 


(1) Les marques utilisées (asté- 
risque ici) ne doivent pas se rencon- 
trer dans le texte (faute de quoi le 
texte sera considéré comme mar- 
que de mot et il y aurait confusion 
sur le nombre d'articles ou de rubri- 
ques). 


(2) Les marques d'articles et de 
rubriques doivent toujours terminer 
l'article ou la rubrique puisqu'elles 
les délimitent (dans le bloc : 2 asté- 
risques après RIVIERE et dans une 
rubrique : 1 astérisque après VILLE 
par exemple). 


# ur 
(3) La ligne 1310 est ici incor- 
recte (arrête l'exécution), mais faci- 
lite la manipulation du programme. 


Le programme de synthèse de la 
page 48 reprend les sous-pro- 








Liste de la routine de décondensation - lecture des blocs 



































1 CLEAR 5000 : DEFINT A, X-Z : DEFSTR L-S 
2 GOSUB 1200 

3 PRINT "FIN" 

4 END 


1200 REM *** SOUS PROGRAMME DE DECONDENSATION *** 

1210 REM **% AUTEUR : DANIEL WUESTENBERGHS ***# 
1220 REM *%* COPYRIGHT:L'ORDINATEUR INDIVIDUEL *#* 
REM %%% ET L ‘ AUTEUR Lis 





PRINT "CASSETTE EN POSITION DE LECTURE" 
1250 INPUT#-1,S ! PRINT S 

1260 REM *** ROUTINE DE LECTURE DES ARTICLES *** 
1270 Yl=1 

1280 FOR X=1 TO LEN(S) 

1290 IF MIDS(S,X,2)="#4!" THEN 1300 ELSE 1340 
1300 Y2=X 

1310 MI=MIDS(S,Y1,Y2-Y1+1) 

1320 COSUB 1360 

1330 Y1=Y2+2 

1340 NEXT X 

1350 STOP : GOTO 1250 

1360 REM *** ROUTINE DE LECTURE DES RUBRIQUES *** 
1370 Y3=1 

1380 FOR Z=1 TO LEN(MI) 

1390 IF MIDS(M1,Z,1)="*" THEN 1400 ELSE 1440 
1400 Y4=Z-] 

1410 R=MIDS(M1,Y3,Y4-Y3+1) 

1420 PRINT R 

1430 Y3=Y4+2 

1440 NEXT Z 

RETURN 













Éncore un 
article? 


one es 
ARTICLE 





encore 
une 
rubrique © 





L 
REXMICHEL*HAMEAU*9*98765 VILLAGE*.. MARC*ANTOINE*GRAND-RUE*8*76543 BOURGADE** 
— 








PAUL*EMILE*RUE DE LA GARE*123*45678 VILLE* 
PAUL 

EMILE 

RUE DE LA GARE 

123 

45678 VILLE 
PIERRE*MICHEL*HAMEAU*9#98765 VILLAGE* 
PIERRE 

MICHEL 

HAMEAU 

9 

98765 VILLAGE 

LUC*ARMAND*RUE DU CENTRE*4*32109 BOURG* 
LUC 


TRAITEMENT 
UNE 
RUBRIQUE 


ARMAND 


RUE DU CENTRE 

[A 

32109 BOURG 
MARC*ANTOINE*GRAND-RUE*8*76543 BOURGADE* 
MARC ; 
ANTOINE Organigramme nor 
GRAND-RUE 


8 malisé du Fraitement 
76543 BOURGADE dun bloc. 
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100 PRINT “DESIREZ-VOUS ENREGISTRER UNE ADRESSE CL)? 


LL LL 
110 PRINE ? OÙ AHPREMER DES ERIQUETTES (2) O0 LNEUE PM Là PR 
130 INPUT " VOTRE CHOIX " ; CH 1030 INPUT MRUE, AVENUE, BOULEVARD... :" 3; R 
140 ON CH GOSUB 1000 , 1200 , 160 1040 INPUT "NUMERO DE L'IMMEUBLE :" ; NO 
150 GOTO 90 1050 INPUT ‘“LOCALITE :" ; LO 
160 END 1060 SI=NM+ "4" 4 pR+ ete Re let NO+ "RME LO+ TA! 













REM *** PROGRAMME COMPLET DE CONDENSATION *** La li 

REM *##* DECONDENSATION ET TRANSETIQUETAGE *** iste 

REM *4% AUTEUR : DANIEL  WUESTENBERCHS *** 

REM *** COPYRIGHT:L'ORDINATEUR INDIVIDUEL *** du programme 
REM xxx ET L ‘ AUTEUR xxx complet 
CLEAR 5000 : DEFINT A-C, X-Z : DEFSTR L-S : DIM P(10,10) en BASIC 
FI=-1 

LL="# * x x F4 

EU 





1000 REM *#* SOUS PROGRAMME (1) DE CONDENSATION 





1010 INPUT "NOM :" ; NM 













1070 AIl=LEN(S1) : A2=LEN(S) 

1080 IF Al+A2<255 THEN S=5+51 ELSE PRINT#FI,S : S=51 
1090 PRINT "TAPEZ '@' LORSQUE VOUS AVEZ 

TERMINE LA SAISIE DES ADRESSES" 

1100 US$S=INKEYS : IF US='""" GOTO 1100 

1110 IF US="@" THEN 1120 ELSE 1010 

1120 PRINT#FI,S : PRINT#FI,'"FIN" + RETURN 







































grammes de condensation et de dé- 
condensation. Le choix est opéré en 
début de programme (instruction 
90) et l'instruction 100 envoie au 
sous-programme choisi (écrire ou 
condenser, lire ou décondenser). 
L'instruction 61 définit le format 
d'impression qui sera utilisé par 
l'instruction 1303. L'instruction 
1 305 imprime trois lignes blanches 
(ce sont les interlignes). 


1200 REM *** SOUS PROGRAMME (2) DE DECONDENSATION *** 
1210 INPUT#FI,S 

1215 IF S="FIN" THEN 1390 

1220 PRINT "LECTURE DE L'ENREGISTREMENT" 

1230 REM *** ROUTINE DE LECTURE DES ARTICLES *** 
1240 Y1=1 : B=0 

1250 FOR X=1 TO LEN(S) 

1260 IF MIDS(S,X,2)="**" THEN 1270 ELSE 1310 
1270 Y2=X : B=B+l 

1280 MI=MIDS(S,Y1,Y2-Y1+1) 

1290 GOSUB 1400 

1300 Y1=Y2+2 

1310 NEXT X 

1320 FOR XI=1 TO B STEP 3 

1330 FOR X2=1 TO C 


On pourrait ajouter une instruc- 
tion 1212 IF S = ‘’FIN'THENRE- 
TURN qui renverrait à l'instruction 
100 comme cela est fait à 1150. 


L'organigramme reprend le trai- 
tement de décondensation d'un 


bloc d'enregistrement (instructions 1340 LPRINT USING LL; PCX1,X2), P(XI+1,X2), P(X1+2,X2) 
1200 à 1410). 1350  NEXT X2 
1360 LPRINT “ " : LPRINT " We LPRINT 


Certaines améliorations peuvent 
être apportées à la présentation du 
programme (PRINT ‘libellés d'ins- 
tructions pour l'utilisateur “); ces 
instructions ont été supprimées 
pour ne pas alourdir le listing. 


1370 NEXT X1 
1380 GOTO 12i0 


1390 RETURN 


1400 REM **k% ROUTINE DE LECTURE DES RUBRIQUES *** 
1410 y3=1 : C=0 

1420 FOR Z=1 TO LEN(MI) 

1430 IF MIDS(M1,Z,1)="#" THEN 1440 ELSE 1480 
1440 Yh=Z-1 : C=C+l 

1450 R=MID$S(M1,Y3,Y4-Y3+1) 
1460 P(B,C)=R 
1470 Y3=Y4+2 
1480 NEXT Z 
RETURN 


Le lecteur modifiera facilement le 
programme afin d'arriver à une uti- 
lisation spécifique de ce qu'il a ap- 
pris pour les adresses. 





Daniel Wuestenberghs 


PAILAEMILEMRUE DE LA GARE*123445678 VILLE**PIERRENMICHELAHAMEAU*234#98765 VILLAGE*LUC*ARMANDÉ , , . 19 BOURGHAMARCHANTOINENGRAND-RUE#8%76543 BOURGADE**LOUTS*LENPOLDAPETILE RUE*21#24680 


PAUL PIERRE LUC 

d | EMILE MICHEL ARMAND 
Voici une illustration QUE DE LA GARE HAMFAU RUE OÙ CENTRE 
du principe 123 2% 4 
du programme. 45678 VILLE 98765 VILLAGE 32109 BOURG 
Ci-dessus : 
les enregistrements MARC LOUIS ALPHONSE 
sous forme condensée. ANTOINE LEOPOLD ROBERT 
A droite : GRAND-RUE PETITE RUE RUE DROITE 
les mêmes 8 21 10 
sous forme décondensée. 76543 BOURGADE 24680 RIVIERE 12345 MONT 
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recherche 





Organisez vos données 


en listes linéaires doubles 





Le programme en Basic que nous publions illus- 
tre l’organisation de données appelée jiste li- 
néaire double. Cette structure de liste linéaire 
double donne la possibilité, par exemple, de 
créer des index ou d'organiser de façon perfor- 
mante un fichier « commandes ». Elle permet 
aussi d'assurer la gestion d’un stock de produits 
finis. Découvrons donc cet outil logique puissant. 





Intéressons-nous d'abord aux 
structures classiques d'organisa- 
tion. || faut préciser que si, par 
commodité, les arguments sont, 
dans le programme et le corps de 
Marticle, des nombres entiers, 


Structures comparées 


" 4 2 3 % 4 
À - Seauentielle Triee - 


Liste 


dans la réalité les « valeurs » 
comparées sont des arguments 
numériques ou alphanumériques 
qui peuvent être eux-mêmes 
constitués d'éléments ordonnés 
de « majeur » à « mineur ». 


- Indices 


VALEURS 


Indices 


& VALEURS 


eFointeur 


Gimele © chaînece vers le Successenur ) 


Indices 





On peut comparer rapidement 
ces trois structures. 


L'organisation séquentielle est 
peu gourmande en place ; elle est 
rapide à lire et elle permet l'emploi 
de la recherche dichotomique. En 
revanche, elle est difficile et coû- 
teuse à réorganiser (recopies ou 
décalages en cascade lors des ad- 
ditions et suppressions). 


L'organisation adressée a le 
grand avantage d'être beaucoup 
plus performante que la précé- 
dente lors des réorganisations, 
celles-ci ne portant que sur la 
table — ou le fichier — des « poin- 
teurs ». Il va de soi que le fichier 
des pointeurs est physiquement 
séparé du fichier principal. La 
place occupée est un peu plus 
grande. La recherche dichotomi- 
que est possible. 


La liste simple présente un in- 
convénient : la recherche dichoto- 
mique n'y est pas possible. On lit 
le fichier ainsi : 


a) consultation de la racine de la 
liste : on a ainsi le rang physique 
(indice) de l'élément le plus faible 
(ou considéré comme étant le pre- 
mier de la liste) ; 


b) on progresse ensuite de pro- 
che en proche (et le plus souvent 
en zig-zag), éventuellement jus- 
qu'en butée, c'est-à-dire jusqu'à 
l'élément qui n'a pas de succes- 
seur (valeur du chaînon = O). 


Notons que, contrairement à 
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Première parution : L'OI n° 46 


l'orgänisation adressée, les chaîï- 
nons peuvent, ici, faire partie de 
l'enregistrement principal. En 
effet, une mise à jour (addition 
d'un élément par exemple) ne 
donne lieu qu'à un minimum 
« d'écriture » : 


inscription dans la rubrique 
« successeur » du nouvel enregis- 
trement, de la valeur du rang (ou 
indice) de l'élément suivant. 

modification de la valeur du 
chaînon « successeur » de l'élé- 
ment précédent. 


Malheureusement, la liste sim- 
ple présente d'autres inconvé- 
nients : on ne peut la lire que dans 
un seul sens et, dans le cas d'une 
recherche avant la mise à jour, il 
faut, de façon continue, mémori- 
ser le dernier « précédent » (c'est- 
à-dire son indice), ce qui pénalise 
la vitesse de recherche. 


Voyons maintenant la liste dou- 
ble (encadré ci-après) 


RS SH 


Debut en % (4) 
Firm) en +003) 


(Kecine des 
(Kecine des 


Pour lire en ordre « croissant », 
on utilise les « successeurs », et si 
le nom de l'élément est V{i), on 
aura successivement V{4), V(5), 
V(2), V(1) et V(3). L'utilisation des 
« précédents » est évidemment 
analogue. 


Cela nous amène à la représen- 
tation « logique » d'une liste dou- 
ble (encadré ci-dessous) : 


Dans notre programme, les va- 
riables dans lesquelles sont entre- 
tenues les valeurs des racines 
commencent par « D » pour les 
précédents, et par « F » pour les 
successeurs. Nous aurions par 
exemple : D1=4,et F1=3. 


Occupons-nous maintenant du 
programme. Les spécifications 
qu'il respecte sont décrites ci- 
après. 





“— Indices 


ü 
© 


É D us À 
» + ! PH 2 fi 


“+ VALEURS 


HR 


ii 


SUCCESS + 





, / u 
<Frececs 





: 
î 


A1CCESSEUTS ) 
Fréceéderts ) 





1} Gérer en temps réel (lire, ajou- 
ter, supprimer) par liste double un 
ensemble de nombres entiers 
compris entre 1 et 999. 
2) Ces nombres seront en ordre 
croissant sur les successeurs (et 
donc en ordre décroissant sur les 
précédents). 
3) Les nombres seront entrés au 
clavier, précédés de la commande 
« T » (Trouver), « À » (Addition), 
« S » (Suppression). 
4) Les homonymes seront autori- 
sés, mais pourront être interdits 
par une intervention simple du 
programmeur. 
5) Au départ la table sera vide, 
les valeurs principales étant à 
zéro. 
6) Les règles de mise à jour (en 
temps réel) sont les suivantes : 

un ajout doit se traduire par 


Représentation logique d'une liste double 
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VALEURS 


Suce + 


4 4 
Freced, 


l'utilisation (et donc la suppres- 
sion) du « trou » d'indice le plus 
bas ; 

si l’ajout a déjà des homony- 
mes, il devra être chaîné avec 
ceux-ci de façon à respecter l'or- 
dre des indices croissants. ; 

une suppression ne pourra évi- 
demment avoir lieu que si un élé- 
ment, au moins, est égal au nom- 
bre indiqué ; s'il y en a plusieurs, 
l'élément à supprimer sera celui 
de rang le plus élevé. 

7) Les commandes supplémen- 
taires suivantes seront program- 
mées : 

« V » (comme Voir) entraînera 
l'affichage de la table principale et 
des tables de chaînage ; si la di- 
mension de la table est supérieure 
à quinze, seuls les quinze pre- 
miers éléments seront affichés ; 
la valeur des racines sera égale- 
ment affichée. 

« L » (comme Lister) doit per- 
mettre de lister les valeurs princi- 
pales dans leur ordre croissant ; 

« | » (comme Inverse) fera la 
même chose en ordre décrois- 
sant. 

. &F » (comme Fin) mettra fin au 
programme. 


Passons maintenant aux 
description et réalisation 
du programme 


On voit que la routine d'initiali- 
sation « INIT » est placée en fin de 
programme. Cela permet de pla- 
cer tout au début du programme 
les lignes de code qui donnent la 
structure générale et rejettent, à 
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la fin, des instructions parfois 
nombreuses qui ne sont exécu- 
tées qu'une seule fois. Cette dis- 
position augmente les pérforman- 
ces de certains Basic. 


Le programme se termine lors 
de l'exécution de la routine « FIN » 
au sein de laquelle se trouve une 
instruction « END ». 


Regardons rapidement la rou- 
tine « SAISIE » : (ici lignes 410 à 
475). Rien de particulier, si ce 
n'est l'instruction INPUT$ (n) per- 
mettant, en Basic TRS-80 Mo- 
dèle 2, de saisir « n » caractères 
(ici un), sans appuyer sur ENTER 
(RETURN). 


Avant de voir la routine INIT, 
reconnaissons qu'un problème se 
pose : faut-il chaïîner les trous 
entre eux ? Puisqu'on peut les 
identifier à leur valeur nulle (zéro 
numérique), on pourrait les trou- 
ver par une banale recherche sé- 
quentielle. Remarquons simple- 
ment que, suivant l'emplacement 
et le nombre de ces trous, la 
durée de recherche peut varier for- 
tement. 


Nous avons choisi la solution 
du chaînage. II fallait donc, à l'ini- 
tialisation, chaïîner (par les suc- 
cesseurs et les précédents) une 
table de valeurs nulles de lon- 
gueur LT, 


La routine INIT se trouve aux 
lignes 635-680. 


LT (Longueur Tables) permet de 
dimensionner la table V{) et les 
tables de chaînage S{) et P{). Les 
lignes suivantes initialisent la 
table vide ainsi que la valeur des 
racines. 


Rappelons que les valeurs des 
racines représentent des indices. 
Ainsi DO (racine Début des trous) 
= 1 veut dire que le premier des 
trous est à la place 1. 


D1 et F1 sont les racines de la 
liste des nombres : leur valeur O 
indique que cette liste ne 
commence nulle part et qu'elle 
est, pour l'instant, vide. 





Et si nous nous 
lancions dans 
la programmation ? 


1) Commandes jugées simples 
{opinion toute personnelle, bien 
sûr !) : ce sont les commandes 
V{oir), L{ister), l(nverse) et Fin). 

La commande V{oir) pourrait 
certainement être programmée de 
façon plus fine. 


Les commandes Lister) et 
l(nverse) sont claires. C'est la va- 
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leur O (zéro numérique) du suc- 
cesseur (ou du précédent) qui ar- 
rête le processus. 


2) Les commandes T, AetsS. 
T(rouver) implique : 

Chercher et rendre compte. 
Addition) implique : 

Chercher un trou. 

S'il n'y a aucun trou déclarer addi- 
tion impossible. 

Si on trouve au moins un trou 
chercher la position logique du 
nouveau nombre (si on trouve un 
nombre identique, ne poursuivre 
que si l'homonymie est autori- 
sée). 

Supprimer logiquement le trou 
{modification des chaïnons suite à 
la suppression). 

Installer physiquement le nouveau 
nombre. 

Ajouter logiquement ce nombre 
(modification des chaînons à la 
suite d'une addition). 
S(upprimer) implique : 

Chercher le nombre (s'il 
n'existe pas, annuler). 
Suppression physique. 

Suppression logique (chaï- 
nons). 

Chercher la place logique du 
nouveau trou. 

Ajouter logiquement le nouveau 
trou. 


Il ressort de cette analyse que 
trois fonctions ont un rôle prépon- 
dérant : 

Chercher, fonction assurée par 
« RECH » ; 

Addition (ou AJOUT) logique as- 
surée par « PTRADD » : 
Suppression logique traitée par 
« PTRSUPP ». 


Ces fonctions doivent être trai- 
tées par des sous-programmes, 
car on y fait appel en plusieurs 
endroits. || apparaît, en outre, que 
ces Ssous-programmes auront à 
traiter, suivant le cas, des don- 
nées et donc des variables diffé- 
rentes. En effet, recherche, addi- 
tions et suppressions se font soit 
dans la liste des valeurs, soit 
dans celle des « trous ». 


On est donc amené à « passer 
des paramètres » aux sous-pro- 
grammes. Le procédé est ici le 
Suivant : les arguments, fournis 
au Sous-programme et restitués à 


| Situation avant insertion 


(27 à 










l'extérieur, sont traités sous des 
noms de variables propres à celui- 
ci : ici les variables « internes » se 
terminent par la lettre « X ». 


La transmission des arguments 
se fait sur la même ligne que celle 
de l'instruction GOSUB. Par 
exemple le sous-programme ima- 
ginaire : 


100 : === PROCESS === 
1101FUX > BX THEN WX=UX : 
RETURN 

120 IF UX = BX THEN WX=O0 : 
BX=BX/2 : RETURN 

130 WX=BX : RETURN 

140 RETURN 


pourra être appelé de la façon 
suivante : 
640 UX=UA : BX=BA : GOSUB 
100 : WA=WX : BA=BX' — — 
PROCESS 





La programmation de 
RECH, PTRADD et 
PTRSUPP 


La syntaxe d'appel de RECH 
(Recherche) est la suivante : 
nnn RX= ? : DX= ? : FX= ? : 
AX= ? : GOSUB yyy  : 
2=KX : ?2=TX : ?=GX' ——RECH 
où : 
RX = valeur du nombre, 
= racine successeurs (D 
comme Début), 
FX % racine précédents (F comme 
Fin), ; 
AX = adresse (indice à prendre en 
compte pour l'insertion logique), 
KX = indice, soit du nombre 
trouvé, soit du nombre immédia- 
tement supérieur ou inférieur. 
TX = O si non trouvé, et.— 1 si 
trouvé. 
GX = O0 si le nombre cherché est 
logiquement à droite du nombre 
d'indice KX, et = — 1 si à gauche. 


Par exemple, on est en train 
d'exécuter une commande « A ». 
Une première recherche a indiqué 
qu'un emplacement disponible 
(trou) existait en 143. Nous avons 
à insérer le nombre 614. Les ho- 
monymes sont autorisés, donc 
possibles. Supposons que la si- 
tuation avant insertion soit celle 
représentée ci-dessous. 
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L'indice (143) du trou à utiliser 
est dans la variable KO. La valeur 
(614) dans R. On écrit : 


nnn RX=R :DX=D1 :FX=F1 
:AX=KO :GOSUB « RECH » 
:K1=KX :T1=TX :G1=GX. 


Les valeurs produites seront : 
K1=92, T1=-1 (trouve), GX=0 
(ce qui indique une insertion à 
faire entre « 92 » et son succes- 
seur). 


Nous laisserons le soin au lec- 
teur de décortiquer le sous-pro- 
gramme RECH. Notons cepen- 
dant que le choix du « meilleur » 
sens de recherche (par les suc- 
cesseurs ou les précédents) per- 
met non seulement de minimiser 
le nombre des itérations, mais 
aussi de supprimer le test de non- 
nullité du successeur ou du précé- 
dent. 


Il y a lieu aussi de noter le rôle 
des adresses particulières, AX=0 
et AX=32767. 


Le module PTRADD est appelé 
pour modifier les chaînons en cas 
d'addition. Supposons que nous 
venions de sortir de RECH avec 
les nouvelles valeurs de K1 et G1. 
(Peu importe la valeur de T1, car 
nous supposerons que l'addition 
est autorisée.) 


Procédons d'abord à la mise en 
place physique : 
nnn V(KO)=R 


Appelons H (comme Haut), l'in- 
dice du nombre successeur du 
nombre R à insérer et B (Bas) celui 
de son précédent. 


SiG1=-— 1 on se situe à gauche 
et donc H=K1 et B=P (K1). 


Sinon on a (nous laissons au 
lecteur le soin de faire le dessin 
dm : B=K1 et H=S 
K1). 


Cette question des variables in- 
termédiaires H et B réglée, on 
peut écrire : 

S (KO)=H 

P (KO)=B 

ce qui met à jour les pointeurs du 
nouveau nombre, et : 

S(B)=KO 

P(H}=KO 

qui raccorde les voisins au nou- 
veau venu. 
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La valeur K1 est connue dans le 
module sous l'appellation KX, 
celle de KO sous celle de NX. On 
retrouve la programmation effecti- 
vement présentée. 


Passons maintenant 
à la modification 
des valeurs des racines 


Lorsqu'il y a insertion ou sup- 
pression d'une valeur « racine » 
celles-ci (ou l’une de celles-ci) 
sont à modifier. Le lecteur inté- 
ressé notera l'utilisation qui est 
faite des indices O des tables de 
chaînage S{) et P(). 


il faut remarquer que les va- 
leurs de S(0) et/ou P(0) sont dans 
ces cas particuliers transférées 
dans DX (et donc dans DO, D1, 
D...) et/ou FX (et donc dans FO, 
F1, F..) et que S(O) et/ou P(O) 
sont immédiatement remis à zéro. 


Nous ne dirons rien de 
PTRSUPP, plus simple que 
PTRADD. 


En fait nous ne parlerons plus 
de la programmation, si ce n'est 
pour dire un mot de l'utilisation 
des variables entières comme va- 
riables logiques. Il s'agit d'ex- 
pressions comme : IF HY THEN... 

La valeur qui correspond à 
FAUX est O (16 bits éteints). Si 
HY n'est pas nul, l'expression ci- 
dessus se comportera comme si 
HY était VRAIE. 


Donnons à HY la valeur 1 et à 
JZ la valeur 2. Faisons |F HY AND 
JZ THEN... 


L'expression HY AND JZ est 
fausse (nulle). Nous pensons 
donc qu'il vaut mieux s'en tenir en 
conséquence à — 1 comme cons- 
tante VRAI. Dans le cas du pré- 
sent programme il aurait proba- 
blement mieux valu initialiser 
deux variables FA=O, VR=-1 
dans INIT. 


Divers développements sont 
possibles. 
1) Améliorations. 
Affichage. 
Routine RECH ; l'améliorer d’une 
façon générale ; choisir le sens de 
lecture en fonction non pas de la 
moyenne mais de la médiane. 


Inaiices 
VALEURS 


SUCC » 


BUT A 
Frecér, 


Mettre en place des compteurs 
donnant le nombre de places 
libres, le nombre de nombres 
(somme des 2 = LT), etc. 


2) Utilisation des listes doubles. 
On peut les employer pour tenir 
des index correspondant à tel ou 
tel critère de tri. Mais la recherche 
est toujours relativement longue, 
car elle est « séquentielle » (elle 
porte en moyenne sur le quart de 
la liste, lorsque le choix du sens 
de recherche a pour base une 
comparaison avec l'élément « mé- 
dian »). 


On peut l'utiliser aussi comme 
« magasin automatique » de don- 
nées : supposons que nos nom- 
bres soient maintenant des numé- 
ros d'articles et que nous ayons 
environ deux cents clients pou- 
vant avoir en moyenne vingt arti- 
cles en commande. Cela fait donc 
environ quatre mille enregistre- 
ments. 


LA 

Si nos clients sont numérotés: 
1, 2, 3... 200, et si nos « raci- 
nes » sont des variables indicées, 
nous avons « immédiatement » 
accès à la sous-liste du client 45, 
car ses racines sont D (45) et P 
(45). La recherche séquentielle 
dans la sous-liste elle-même est 
alors de très courte durée. 


On peut aussi l'employer 
comme méthode générale d'ac- 
cès : nous pouvons traiter des 
indicatifs par HASH-CODE pour 
obtenir un nombre qui soit l'indice 
des racines D() et F{) à utiliser. 
Tous les nombres ayant les 
mêmes racines seront dans une 
même sous-liste et une lecture 
séquentielle (chaînée) permettra 
d'accéder à l'indicatif souhaité. 


Nous ne nous étendrons pas 
davantage sur cette dernière pos- 
sibilité. Nous la citons parce que 
c'est un cas de gestion de fichier 
sans réorganisation périodique 
nécessitée par les mises à jour. 


Soulignons l'aptitude des listes 
doubles à la gestion d'emplace- 
ments vides mis en commun. 


Cette aptitude peut être utilisée 
aussi bien pour la gestion d'em- 
placements physiques (par exem- 
ple dans les magasins automati- 
ques de produits finis) que pour 
celle des fichiers informatiques. 


Bernard Besse 
RS 











La plupart 

des petits 
systèmes 
individuels 
actuels 

disposent 

de fichiers 
permettant 

un accès 

aux données 

à partir d'un 
numéro 
d'enregistrement 
physique. 

Or, en particulier 
dans les 
applications 

de gestion, 
l'utilisateur 
désire accéder 
aux informations 
à partir 

d'une clé 
alpha-numérique 
(un nom ou un code 
par exemple), 

et de son 
numéro 
d'enregistrement. 
On peut, bien sür, 
rechercher 

une information 
dans un fichier 

à partir d'un nom 
ou d'un code, 

en lisant 
séquentiellement 
tous les 
enregistrements. 
Mais compte tenu 
du temps d'accès 
à chaque 
enregistrement 
(de l’ordre de 
100 ms), 
l'information 
cherchée n'est 
retrouvée 
qu'après 
plusieurs secondes 
pour un fichier 
de taille moyenne. 





disquettes 





une table d'index 
DOUr UN ACCÈS 
= plus direct 


L'utilisateur se trouve donc 
confronté au problème suivant : 
Comment établir la correspon- 
dance entre les clés d'accès utilisa- 
teur et le numéro d'enregistrement 
où sont rangées les informations, 
cec! en limitant au maximum le 
nombre d'accès au disque et en ré- 
duisant ainsi les temps d'accès ? 


Deux principes sont générale- 
ment utilisés : 
Soit le Hash-Code qui établit la cor- 
respondance par un ca/cu/ d'a- 
PIÈsse de rangementeffectué sur la 
clé. 
Soit l'accès indexé qui établit la cor- 
respondance à l'aide d'une table. 


Si la première méthode est plus 
simple dans son principe, elle est 
aussi plus coûteuse en p/ace disque, 
du moins avec les fichiers classi- 
ques. C'est donc l'accès indexé que 
nous étudierons dans cet article. 


De nombreuses méthodes exis- 
tent, plus ou moins simples à pro- 
grammer. Leur choix se fait en 
fonction des exigences de l'applica- 
tion et des particularités des fi- 
chiers utilisés. 

Voici les principales, de la plus 
simple à la plus complexe : 

. L'accès indexé simple : on utilise 
une table en mémoire centrale, 
constituée en début de travail à par- 
tir du fichier. 

. L'accès indexé avec sauvegarde 
sur disque de la table d'index : la ta- 


mémoire centrale 


ble des index, chargée en début de 
programme à partir du disque, est 
stockée sur disque en fin de travail 
de façon à permettre une réutilisa- 
tion rapide lors d'un travail ulté- 
rieur. 

. L'accès indexé avec index continu 
en ordre croissant sur disque. 

. L'accès indexé avec index à 2 ni- 
veaux. 


Examinons-les successivement. 


Accès indexé avec table de corres- 
pondance en mémoire centrale 


Dans la version la plus simple de 
l'accès indexé, la table de corres- 
pondance estrésidente en mémoire 
centrale et se constitue en début de 
travail par la lecture séquentielle de 
tout le fichier (schéma ci-dessous). 

Lorsque cette table n'estpastriée, 
sa consultation est nécessairement 
séquentielle, mais relativement ra- 
pide si les clés ne sont pas trop 
nombreuses. Il suffit ensuite d'un 
accès disque pour retrouver l'enre- 
gistrement associé à la clé. 

Mais plusieurs dizaines de se- 
condes sont nécessaires à la consti- 
tution de la table si le fichier a une 
taille importante. 


Aussi cette méthode n'est-elle 
guère exploitable dès que le nombre 
d'enregistrements physiques du fi- 
chier devient important, au-delà 
d'une centaine Cependant, elle a 
l'avantage d'être simple à program- 
mer, et aussi celui de s'adapter 
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Première parution : L'Ol n° 15 


aisément à une application exis- 


10 REM CPTTETE CET T LL LLC LEE LLLLS SSL 


tante par l'appel de 2 sous-pro- 20 REM ACCES INDEXE AVEC TABLE D'INDEX EN MEMOIRE CENTRALE 
p 
grammes : un sous-programme de CR SA AL dE 2 ME 
création de la table et un sous-pro- D en como L'ohAebe EDIVIDEL er L'auteur 
gramme de recherche dans la table. 70 REM ARR RSR RER ERR AREA 
8O OPEN “R",1,"TOTO" 

Si la table d'index est en ordre 50 FIELD 61; io 33 NS, 4 PNS, 20 AS TLS, 4 AS MTS ‘DEFINITION DES ZONES 
croissant, la recherche S'y fait par 110 COSUR 1000 GS "CONSTITUTION DE LA TABLE D'INDEX 
dichotomie et devient ainsi plus ra- ee eo APTE 
pide. Voir le programme de re- 140 IF NODES=YCONS" | THEN GOSU. 3000 

. à 1 1F MODES="MODI" THEN COS 00 
cherche dichotomique page 115. 160 1F MODESAERT TN ie as 
IF MODES="RNI"! THEN GO: 0 
Il est possible de ne stocker dans 180 IF MODES="LIST" THEN GOSUS 7000 
Fe 190 IF MODES="FLN" THEN 210 
la table d'index que les seules pre- 200 GOTO 120 
mières lettres des clés. Ceci contri- RO CALE 
buera à réduire la place mémoire 1000 Ra et 
occupée, et à diminuer les temps de 1020 ES 
: 1030 =1 (où) 
comparaison de la clé cherchée D D AU TA 
avec les clés de la table. Mais en cas 1050 IF ASC(NS)=0 THEN 1070 "ENREGLSTREMENT VIDE ? 
d'identité entre les premières let- AR EE VAN TE 
tres de différentes clés, plusieurs OBDTRE 
accès disques seront éventuelle- 2010 
ment nécessaires. un 
_ Lorsque les enregistrements phy- 2010 
siques (repérés par un numéro) nee 
comportent plusieurs enregistre- 019 He SOUS-PROGRAMME DE RECHERCHE INDEXEE 
ments logiques ayant chacun leur 6020 XS="": INPUT “NOM CHERCHE ;XS21F X$="" THEN 6120 
clé, on peut coder dans la table d'in- So RER 
dex l'ensemble du numéro physique cn Fe DRE UM SUN DV ENER TRAÈNES 3 ERRO SCOR) 6070 
et de la position dans l'enregistre- 6070 MEXT 1 Re 
h i- 6080 1F TR=0 THEN PRINT:PRINT'N'EXISTE PAS":PRINT:GOTO 6020 
ment physique de la façon sui 6090 GET #1,INDEX(NE) "LECTURE LE L'ENREGISTREMENT Eee PAR LA TABLE D'INDEX 
vante : 6100 PRINT:PRINT N$,PNS,TLS 
X=(No physique*NLOG)+ POSI- ee ral 
TION 7000 REM 

. 7010 PRINT "LIST : 

où NLOG représente le nombre 7020 REA 
0 . . "SUR TRS- d 
d'enregistrements logiques par en- SON A T PE DONATION 


registrement physique. Le déco- 8020 " REMPLACEK LOF(1) PAR LOF(1)+1 

dage se fera par: 

No physique = INT (X/NLOG), 

POSITION = X-INT (X/NLOG) 
4 4ÿ clés par enreaistrement 


Voici un programme d'accès in- dires Br 
dexé avec table en mémoire cen- == de 256 cers 
trale (ci-contre, en haut). La mise à @fouro|e[zoé[7 Jeau|sl | | | 


jour de la table en temps réel, en cas 
d'ajout de clé, n'a pas été program- 
mée sur cet exemple. C'est donc 
seulement à la prochaine constitu- 
tion de la table, c'est-à-dire lors du 
prochain travail, que les clés ajou- 
tées y seront présentes. 


Accès indexé avec sauvegarde sur 
disque de la table d'index 


Une sauvegarde de la table d'in- 
dex dans un fichier et sa relecture 
en début de session de travail évi- 
tent la perte de temps de sa consti- 
tution. La sauvegarde de la table 
d'index doit être faite à chaque 
création de clé et non pas seule- 
ment en fin de session. 


DUPON 
En effet, sans cette sauvegarde, 


“ CPE 
si une session était interrompue, fs 3 TP MARS x | 
l'index sur disque ne serait plus à GEAR, 





jour pour les sessions suivantes. 


Si l'on a choisi d’avoir cette table 
en ordre croissant afin d'y faireune r: 
recherche plus rapide par dichoto- édui Are 
mie, on doit bien sûr, lors d'une ire centra Nr GPA 
création de clé, insérer celle-ci dans inclé de chaque seceur de l'in 
la table après avoir décalé toutes les 
clés en aval de l'insertion. 


Dfx xx © 7 7 
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on en insère un 
nouveau 


Index continu sur disque en ordre 
croissant 


La présence en mémoire centrale 
d'une table d'index de taille impor- 
tante peut être évitée de la façon 
suivante : les clés sont rangées en 
ordre croissant dans un fichier in- 
dex et une table d'index de taille ré- 
duite, en mémoire centrale, 
contient la première clé de chaque 
enregistrement du fichier index ; on 
sait ainsi, lorsqu'on recherche une 
clé, sur quel enregistrement du fi- 
chier index elle est située. 

Après avoir retrouvé la clé dans le 
fichier index, on accède à l'enregis- 


EPPPPPT PPT EETEEEEEL ELLE LEE 
ACCES INUÈXE AVEC SAUVELAXDE 


0 HE’ 
20 HE 
Ju HEM 
4ù HE 
50 kEA 
61 RE 
70 RE: 
40 REA 
TRI ANDEX EN MEMULAE CENTHALE 

100 ke“ SAUVEGARDE SUR DISQUE 

110 NCLES*20: LOLES#4 

120 wii CLES(NCLES) ,l 

190 OPA 4", 1, "TUTO" 

140 FIELD 1,19 AS NS,8 AS PNS,20 AS TLS,4 AS ‘IS 


+ 
d.- 
ee 


r 
!CHARLIE 


index 2 niveaux avec insertion dymamiaque de blocs dans l'index 







trement associé à cette clé. Deux 
accès disques ont donc été néces- 
saires pour accéder à l'enregistre- 
ment cherché. 

De façon à maintenir le fichier in- 
dex en ordre croissant, chaque nou- 
velle clé est insérée directement à 
sa place après avoir décalé toutes 
les clés en aval de l'insertion. Aussi 
le temps nécessaire pour un ajout 
de clé peut-il être long lorsque le 
nombre de clés devient important 
(quelques secondes). Si on consi- 
dère que les ajouts de clés sont gé- 
néralement beaucoup plus rares 
que les consultations, ceci est ac- 
ceptable. 


3010 KE 

3020 EM 

3030 IND«1 

3040 FOR 1=) TO 5 

3050 GET 1,1 

3060  FUR J=l TC NCLES 


Notons que le temps d'insertion 
des clés sera d'autant plus court que 
les enregistrements du fichier in- 
dex seront plus longs (mais on per- 
dra alors de la place mémoire). 


Index 2 niveaux 


Plutôt que d'insérer des clés dans 
un fichier index continu, on peut al- 
louer les enregistrements de cet in- 
dex dynamiquement. A la création 
de l'index n'existe qu'un index de 
niveau O. Ce niveau d'index peut 
être éventuellement situé en mé- 
moire centrale. 


Un index de niveau 1, constitué 
dynamiquement au fur et à mesure 
des ajouts de clés, doit être vu 
comme un index continu en ordre 
croissant. 


Lorsqu'une insertion est faite 
dans un bloc (enregistrement) plein 
suivi d'un autre bloc plein, on alloue 
un nouveau bloc qui reçoit la der- 
nière clé du premier bloc plein. La 
« continuité » de l'index 1 est assu- 
rée grâce à l'index O. Tout se passe 
comme si nous avions inséré dans 
un index continu des trous qui se- 
ront utilisés lors d'insertrons ulté- 
rieures de clés. 


Ainsi il n'y a de décalages de clés 
qu'entre 2 blocs tout au plus. 
Pour des enregistrements de 256 
caractères, l'index pourra contenir 
jusqu’à 40 X 40 = 1 600 clés. 





Jacques Boisgontier 


S/P UE LECTURE LE L'INDEX 
EM MEMUIAE CENTHALE 


3070 1F ASCUCLES(J))20 THEN JeNCLES: GOTD JO) 
3080 NOMS(LND)2CLES(J): IMDEXCIAN)æCVE(PTS(J)): INbaINIel 


3090  AEXT J 
3100 NEXT ! 


"SUa CASA  HULES=4( JLIN RETUHN 


4100 


SOUVEREURE din FICHIER TT) SOUS NO L 4010 RE 
"DEFINIFION DES ZONES 4020 RE: Qt : 


150 FOR Est TO NCLES: FIELD BI, 6*(1=1) AS DS,4 AS CLES(1),2 AS PTSCL): VEXC 1 4030 Q=2 : 


160 LE HoMS(S0), LNbEX(SH) 

110 GET 41,1: LF ASCUCLES(1))e0 TIEN GOSUs 6000 

130 cusus 3000 

190 PRINT TAB(20) "MODES :"2 PRINT 

200 PRINT TAN(JO) "CREAT : CHEATION" 

210 PRINT CAR(3O) "MODE + AODIFICATION" 

224) PRINT TAH(JO) "HNI £ AECHERCHE PAR NO LNDEXRE" 
230 PXIXT 

240 PHIXT: INPUT 
250 LF HUDES="C) 
260 1F AIDES=" 
270 1F MDDES="KNI" 
280 1F HU0ES=" 

290 IF AUES=" 

300 GOTO 240 

Jin CLOSE #1 

320 END 


“THEN GOSUB 1000 

"THEN GOSUR 2900 
THEN COSUR 5044 

THEN GOSUL 25040 
THEN 310 


S/P DE CREATION 


MHIN GE FICREEN ? 6030 FOR [=] TU 5: GET #1,1. 


4000: ON Q Cofo 1020,1080,1150 
1940 LSET XS$N0MS 
1050 INPUT "PRENOM ?  !;PRS 
1060 LSET PNS=PAS 
1070 INPUT "TELEPHONE ? ";TELS: LSÈT TLS2TELS 
1080 INPUT MMATHICULE ? M;MAT : LSET MTS=MRSS MAT) 


1090 PRINT: PRINT TAB(ID): MS="": INPUT “OK ?";HS: LF MSCD"O" THEN PAINT" #4 ANNULE"+: GO7O 1920 705 
MECKITUME À L'ENRÉULSTHEMENT ARANC tt 
M;ARANG: PRINT Jun 


1100 PUT #1 ,ARANG 

1110 PRINT: PRENE FABÇID)"J'AL LANGE VOTRE NON EN : 
1120 NOMSCLAD)#NOMS : ENDEXCIND)=ANANGE: Lie Ni 1 
1130 COSUH 7020 

.Hi4Q Corn 1920 

1150 RETURN 

AUOQ HE mme mme 

2019 REX s 
2020 PLAT MODIFICATION + 
2500 REA 

2510 REA 

2520 PXINT'LISTE 
CON ke% 


Di 
PAS ENCURE HEALI 


& PAS ENCURE REA! 


AO PRINT: NOMSæ"": 
4050 LALENCHUMS): Wei 
4060 1ye2 

4070 FÜx Leu TO 200 


S/P DE XECHENCHE DE CLE 
CLE TAOUVEE 

CLE N'EXISTE PAS 
LNPUT "NO ? 


M:NOMS: IF NONS="" THEN ÿ23: GOTU 4130 


4080 EF A0MSC1)="" THEM L=200: GUTO 4120 

4090 LF NOMSCLEFTSANOMS CL) ,L) AND HUONS(L)CLEFTSCMOMS ,LELES) THEN 4120 
“100 GET #1 ,1NpEx(1) 

#11n 1F MUMS=LEFTSUNS,L) THEN ARANGEINDEX( I): GI Le2nn 


HODÉ ? (CHÉAT,MOOI ,KNI, LIST, FIN)" MODES 4120 NEXT T 


4190 RETUHN 
sa RE: 
501N KE“ 


S/8 LE HECHEXCHE INDEXEE 


5020 GUSUB 4000: ON 4 GOTO 5030, 5040, 5U5N 


5030 


504 PHLNT: PRINT MN'EXISTE FA 


S0$0 RETURN 
#00n 
6910 REM 


S/P INITIALISAT 


6020 PHINT: PRINT “ANITIALISATION INDEX": PRIX 


bn4Q RETUKN 


MTRANSFENT DE NU4S DANS NS 7000 


PUT #1,{: NEXT ! 


Join kE S/P DE SAUVEGARDE DE L' INDEX 


TRANSFERT DE PRS DANS PAS 7u2û 


1030 FOR 1=1 T0 $ 
J04Q GET »1,1 
FOR J=i TU NULES 


2080 MEXT J 

7099 UT 41,1 

7100 LF Ke=5 THEN 5 
7LAO MEXT 1 
7120 HETURX 
#0n0 REX 
#bin HEA 
#u20 HE“ 
803A HE 
s040 RE 
#0 HE“ 
sun HE 


7960 1F NOMSCK Da" 
LSET CLES(J)=NOMSCK): LSEC PTSCJ)=MKISCINDEX(K)): KaKel 


TUEN K=-1 : JeNCLES : CUTO 7080 


QUELQUES CONSEILS . 


MLCRUSUFT 5. VOL LOF 

SUX THSHO HEADOS : 
HEMPLACES LOF(E) PAK LNFÉL)+1 
CLEANC 300) 


AVANT ENIIT'amex UIXS  FAINE jSm"t 
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TECSIEITOCISE 


fiche pratique SEQUENTIELLE RAPIDE 


En BASIC interprété, il est possible d'accélérer notable- 
ment une recherche séquentielle. Pour ce faire, il vous suffit 
d'utiliser une table. 


Prenons le cas d’une table de 2 000 nombres. On peut la définir 
comme une table de 20 chaînes de 100 X 2 caractères. Chaque 
couple de caractères représente alors un nombre compacté par la 
fonction MKi $. 

En sens inverse, la recherche se fera alors à l’aide de la fonction 
INSTR. 


Il est possible de sauvegarder ces chaînes dans des fichiers : le 
tampon est dans ce cas défini par : 


FIELD # 1,200 AS 11 $ 
FOR 1 = 1 TO 20 

LSET 11 $ = LI$ (1) 
PUT # 1, 

NEXT 


L'organisation de votre table est alors représentée par la figure 
ci-dessous. 





Remarque sur le programme : la ligne 340 correspond aux 
positions impaires seulement. 


Liste du programme 


CLEAR(3990) 
DIM T5(29) 


Generation pour essai 
FOR LI=1 TO 2) 
FORTIS 12 TO 109 
TS(LI)=TR(LI)+MHKI5(LI*109+1) 
MEXT I 
NEXT LI 
\ Recherche 


INPUT "Quel nombre cherchez vous? ":X 


XS=4KI5(X) 
' 


FOR LI=1 TO 29 " 20 chaines 

DR=1 " Debut de recherche 
P=INSTR(DR,T35(LI) ,X5) 

IF P=9 THEN 359 

IF (P MOD 2)=9 THEN DR=P+1:GOT0 320 

PRINT "Position de X:":;P;LI:;CVI(MIDBS(TE(LI),P,2)) 
NEXT LI 
GITO 269 


Exemple d'exécution 


run 


Quel nombre cherchez vous? 1207 
Position de X: 13 12 1207 





LU 10,7: uonmed 81881 
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Aiche pratique 


TRI D'UNE TABLE PAR INSERTION DICHOTOMIQUE 


Ce sous-programme trie un tableau de N 9 + 1 chaînes de caractères si- 
tuées dans T$ (N9). 


L'algorithme présenté ici est une méthode d'insertion. Après quelques 
préliminaires (instructions 410 à 430), on va insérer l'élément actuellement 
situé en J4 dans la suite déjà triée des éléments J4 + 1 à N9. 


La place exacte de l'insertion est déterminée par une recherche dichoto- 
mique (cf. fiche n° 10), lignes 435 à 455. L'insertion se fait alors (lignes 470 
et 475), et le cycle recommence tant que toute la table n'est pas triée. 


Notez que, contrairement à ce qui se passe dans la fiche de la page 114 
on ne compare pas directement A$ et T$ (N9) : ceci oblige à mettre à la 
ligne 440 : SUP = N9 + 1. 


REM TRI DE LA TABLE TS(N9) DANS L'ORDRE CROISSANT 
(METHODE PAR INSERTION DICHOTOMIQUE) 

IF N9+1=1 THEN 499 

NI=N9-1:IF TS(N9)<TS(NL) THEN 

AS=TS(N9) : TS(N9)=TS(N1) : TS(N1)=AS 

IF N9+1=2 THEN 499 

FOR J4=N9-2 TO O STEP-1 

AS=TS(J4):1IF AS<=TS(J4+1) THEN 480 

INF=J4 : SUP=N9+1 

K&=INLI((INF+SUP)/2): 

IF AS<TS(K4) THEN SUP=K::GOTO 455 

INF=K4 

IF SUP-INF>1 THEN 445 

FOR K4=J4 TO INF-1:TS(K4)=TS(K4+1):NEXT K4 

TSCINF)=A$ 

NEXT J4 

RETURN 





classer 
T$(N9)et 
T$ (N9)-1 


A$<T$ (54) 
! 


Erouver par dichotomie 
la place INF de A$ entre 
J4et N3 compris 


décaler les valeurs 
de T$ entre J4 
etinF-1 


—[r$(nreas 
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(OX+LX)SHHI=$SLX 
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6X OL I=8Xx 04 
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IV=-VV= OX: CuZu)OSV=TZ: (uen )OSV=IVE (uVu)ISV=VV 
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Fiche pratique CHAINES DE CARACTERES 


Cette fiche contient trois sous-programmes de manipulation de 


chaînes de caractères. 





| Dans de nombreuses situations, il est nécessaire de tester ou de modi- 
fier des chaînes de caractères. 


La présente fiche contient trois sous-programmes, le premier utilisant 
le sous-programme 9500-9545 de la fiche 14, et utilisé par les deux 
autres. On utilisera donc ces quatre sous-programmes conjointement. 


. En 9550, un sous-programme qui vérifie que tous les caractères de 
Z1$ figurent dans Z9$. Si oui, la variable X6 contient O. Si non, la variable 
X6 contient le numéro du premier caractère de Z1$ ne figurant pas dans 
Z9$. Le programme principal donné (lignes 10 à 80) montre un exemple 
d'utilisation de ce sous-programme pour vérifier si le contenu d'une 
chaîne est bien numérique, c'est-à-dire ne contient que des caractères 
pris dans 0123456789. 


. En 9600, un sous-programme qui permet d'élim 1er de Z1$ les ca- 


ractères ne figurant pas dans Z9$. On peut ainsi, par exemple, épurer Z1$ 
de tous les caractères non numériques, c'est-à-dire utiliser pour Z9$ la 
chaîne 0123456789. 


.. En 9650, un sous-programme qui élimine de Z2$ tous les caractères 
figurant dans Z9$. On peut par exemple supprimer ainsi tous les carac- 





REM EXEMPLE D'UTILISATION 
REM *** TEST DE NUMERICITE D'UNE ZONE *** 
CLS 
Z29$="0123456789" 
INPUT'ZONE A VERIFIER ";2Z1$ 
GOSUB 9550 
LF X6=0 THEN PRINT"'ZONE NUMERIQUE" 
ELSE PRINT'ZONE NON MUMERIQUE" 
INPUT'AUTRE ZONE A VERIFIER ";R$ 
IF R$="O" THEN GOTO 30 
END 


REM VERIFIER QUE TOUS CARACTERES DE Z1$ FIGURENT DANS Z9S 
X6=0:Z1=LEN(ZIS):1F Z1=0 THEN 9595 :REM UTILISE 9500 
ZZS$=Z9$ 

FOR X7=1 TO Z1 


X9$=MIDS(ZIS,X7,1) 

GOSUB 9500 

IF X9=0 THEN X6=X7:X7=Z1: REM X9$ PAS DANS 22$ 
NEXT X7 
RETURN 


REM ELIMINER DE Z1$ TOUT CARACTERE NE FIGURANT PAS DANS 29$ 
GOSUB 9550 tREM UTILISE 9550 
IF X6=0 THEN 9645 


tères point, blanc, virgule d'un texte. IF X6=1 THEN Z1S=MID$S(Z1$,2,LEN(Z1$)-1) :GOTO 9640 
IF X6=LEN(ZI1$) THEN Z1$=MID$S(ZIS$,1,LEN(Z1$)-1):GOT0 9640 
Z1$=MIDS(ZIS,1,X6-1)+MIDS(ZIS ,X6+1 ,LEN(Z1S)-X6) 
GOTO 9610 8 
RETURN ® 
REM SUPPRIMER DE Z2$ TOUS CARACTERES FIGURANT DANS Z9$ $ 
Z1$=22$:Z2$="" 2 
GOSUB 9550 {REM UTILISE 9550 % 
IF X6 <> Q THEN Z2$=2Z2$#+MIDS(ZIS,X6 ,1): 58 
Z1$=MIDS(Z1S,X6+1,LEN(Z1$)-X6): ÉF 
GOTO 9660 38 
RETURN HE 
58 
es 
ëè 
58 
(se) 
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La liste du programme 


100 kE: LISTE INVERSÉE 

119 AUTEUR JACQUES BOISGONTIER 

120 COPYRIGUT L'ORDIAATEUR INDIVIDUEL ET L'AUTEUR 

130 IRARRRRARERRRRARRRARRARERARARRERRRAARRRARAAR RAR ARR AR ARARÉARARRARARRRRLRERE A 
140 RE CREATION 

150 « LNTERROGATIOE 

160 LISTE TRI£E 

170 

180 

190 CE PROGRAMME PERMET À PARTIR D'UN FICHIER CLIENT DE CONSTITUER 

200 EN DIFFÉRE SUR DISQUE UN INDEX 

210 DES PROFESSIONS REGROUPANT TOUTES LES PERSONNES EXERCANT LA MEME 

220 PROFESSION 

230 UNg INTERROGATION EN "TEMPS REEL! PEUT ETRE FAITE À L'AINE DE CET INDEX 
240 RE POUR RETROUVER IMMÉDIATEMENT TOUTES LES PERSOUNES AYANT UNE CEXTAINE 

250 PROFESSION 

260 

270 

280 REMAAARAMÉARARARÉARARAREARARARERRRRARRLRRRARR RAR AREA RARARRRRRRRRRARRARRRRÉRRER À A 
290 CLEAR 3000 REM PLACE DES CHAINES DE CARACTERES 
300 DIM PT$S(110),PROFS(50),IX%(50) REM 50 CODES MAXI 

319 OPEN "R",1,"NOM" 

320 FIELD #1,12 AS NOMS,15 AS PFS 

330 OPEN"R",2," INDEX" 

340 FOR I=l TO 110 

350 FIELD #2,15 AS PXS,(1-1)*2 AS D$,2 AS PTS(1) 

360 NEXT I 

370 GOSUB 5000: GOSUB 3000 

380 INPUT”aode (C,LISTE,CRI,RPROF, FIN)";MODES 
390 IF MOLES="C" THEN GOSUB 1900 :REM CREATION 

400 IF MODES="CRI" TIEN GOSUS 2009: GOSUB 3000:REM CREATION INDEX SUR DISQUE 
410 IF HODES="LISTE" TiÜEN GOSUB 4000 
420 IF MODE$="RPROF" THEN GOSUB 6000 
430 IF HODES="FIN"  TLEN 450 

440 GOTO 380 

450 CLOSE #1, #2: STOP 

9BO REA 
990 REM SOUS -PROGRAMMES 


1000 REM sms. Jdnncomcccconcsummm ms ccss nm 


1010 REM *** CREATION 
1020 K$="":INPUT”"nom?";XS:IF X$="" THEN 1070 :REM CREATION 


1030 INPUT"Profession?";Y$ 
1040 LSET NOMSwXS:LSET PF$=YS 
1050 NE=LOF(1)+1: PUT #1,NE 
1060 GOTO 1020 

1070 RETURN 


2000 REH- mammnssnmmenenssnmsenmmmnnnn nn nnnnnen seen en ne ns nes nn ne 

2010 REH ### CONSTITUTION JE L'INDEX 

2020 CLOSE #2:KILL"INDEX":O0PEN "K",2,"INDEX" 

2030 FOR J=0 TO 50:PROFS(J)="":NEXT J: NB=0 :REM RAZ DE PROFS 

2040 FOR NE=1 TO LOF(1} :RE# CONSTITUTION DE L'INDEX 

2050 GET fL,NE:IF ASC(NOM$)=0 THEN 2210 

2060 PRINT NOMS,PFS 

2070 REM RECHERCHE PROF 

2080 FOR Ke1 TO 50 

2090 IF PROFS(K)=PFS THEN 2160 

2100 IF PROFS(K)="" THEN PROFS(K)=PFS:1XX(K)=K:NB=NB+1:COTO 2160 

2110 REM #*#*#* LES DEBRANCHEMENTS EN FIN LA BOUCLE SUR NE 

2120 REM #*#%4 SONT AUTORISES CAR NE SORTENT PAS DE LA 

2130 REM #*#*#* DOUCLE EXTERNE 

2140 NEXT K 

2150 PRINT "### AUGMENTEZ LA TAILLE DE PROFS-IXZ": STOP 

2160 GET #2,K :REM AJOUT POINTEUR 

2170 FOR I=l TO 110 

2180 LE CYI(PTS$(1))=0 TUEN LSET PTS(1)=MKIS(HL):LSUT PXSMPROFS(X): 
PUT #2,K:GOTO 2210 


:REM CREATION TABLES PROFS-IXX 


:REM RECHERCiIE PAR CODE 


:REM RANGEMENT EN FIN DE FICHIER 


2190 NEXT I 

2200 PRINT"##* IL N'Y A PLUS ASSEZ DE PLACE POUR LES POINTEURS": STOP 
2210 NEXT NE 

2220 CLOSE #2:OPEN “RT,2," INDEX" 

-2230 RETURN 


3000 RE sms 


3219 
3929 
3930 
3949 
3959 
3960 
3979 
3039 
3999 
3199 
4099 
4010 
4020 
4030 
4040 
4050 
4060 
4079 
4359 
4997 
4190 
4110 
4129 


4130 
5000 


5019 
5929 
5930 
5040 
59059 
5060 
5979 
5030 
6999 
6919 
6920 
6330 
5940 
6959 
6950 
0979 
6030 
6999 
6190 
6119 
6120 
6139 
6140 
6150 
7309 


TRI DES PXOF2SSI9NS 
LE NB<2: T5 3100 
FOR I=1 TO 4-1 ZI DES 
FOR J=It+L [9 «8 SRE SUBBLE 
IF PHOF$S(J)>=PROFS(L) TiE:1 30839 
TS=PAOFS(L): PHOPS(I)=PHOFS(J):PROFS(J)=TS 
TA=IXZ2(L):IXZ(L)=IK (JD): IXÉ(I)=T4 
NEXT J 
NEXT L 
RETURN 
REM==mensnmmmmnmmn mens sensmemsnm mens nee 
RE #44 LISTE PAR PROFESSION SUR L:IPRIMANTE 
LPRIAT :LPRIAT "profession"; TAë(29)"Nou" :LPRIAT 
FOR CODE=1 T9) LOF(2) iRI LISTE PAR PROE 
GET #2,IXX(C0DE) 
IF ASC(PXS)=0 Tic! 4120 
LPRINT PXS: 
FOR I=1 TO 119 
NE=CVI(PTS(1)):1F NE=O TIEN 4119 
SET #1,NE:LPRINT TAB(20) NOS 





6 LE 

LPRIKT 
NEX£ CODc 
RETURA 
REA XAX CONSTITUTION DCS TABLES PROFS ET IXX 
H3=09 
FOR I=l T9 LOF(2) 

SET #2,1 

IF ASC(PXS)=9 THEN 5079 

NB=ü£+1 :PROTS(NB)=PXS: [XX(NB)=I 
NEXT I 
RETURN 
REtd=-=mmmmmmmmmmmmmmmmmmmmmmmnmmmmmmmmmmmmmmmm mm mmmmm mm 
REM #%% INTERROGALION PAX PROFC55LON 
PRINL:XS="": INPUT "PROFESSION RECIHERCIUICE? "5 KS 
If X$="" TALAN 6159 
1=0 
FOR Lif=l TO i55 

IF XS=LEFTS(PROFS(IN),LENC(XS)) THEN I=IN: IN=Nh 
NEXL I 
IF I=0 TIEN PRINT"'* CETTé PROFES5SI0N N'CXI5TE PAS":GOT9 6929 
R£:1 
GET #2,1X4(I):PRINT 
FÜR X=1 TO 110 

NE=CVL(PTS(X)):IF NECDO LIEN GET #1,AL:PRINT NOMS 

HEXE K 
GOT9 6920 
RETURN 


REd==mmmmmmmmmmmms PIN =... 
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Fiche pratique 


3 


ENTREE D'UN 
NOMBRE POSITIF 


Ce sous-programme en BASIC permet l'entrée d’une valeur nu- 


mérique positive. 


Ce sous-programme est 
Fiche Pratique n° 22 : une 





une variante du sous-programme de la 
chaîne de caractères est lue au clavier, 


chaque caractère étant vérifié au fur et à mesure de sa saisie. 


La traduction de la chaîne de caractères en valeur numérique est ici 
faite grâce à la fonction VAL, mais il serait assez facile de s'en pas- 


ser. 


Notez une différence importante avec le sous-programme d'entrée 
de chaîne : on ne doit autoriser qu'un seul point au plus, d'où un cer- 


tain nombre de précautions 
9895, 9905 et 9915). 


prises grâce à la variable PT (lignes 9855, 


Les valeurs numériques acceptées ici comportent 1 1 caractères au 
plus (point compris), les zéros éventuellement tapés au début de la 
valeur comptant. Dans la limite des 11 caractères, toutes les formes 
comportant au plus un point décimal sont acceptées. 


Description du programme 

Le sous-programme fournit une chaîne Z$ contenant une valeur 
numérique, et la valeur Z correspondante. Il utilise les variables PT 
(présence/assence d'un point), AZ (code ASCII du caractère zéro), A9 
(code ASCII du caractère 9), R$ (dernier caractère lu) et R (code ASCII 


de ce caractère). 


Fonctions utilisées : ASC, LEN, GET (à remplacer suivant le SyS- 
tème), RIGHTS, MIDS et VAL. 


Fonctionnement identique au programme de la fiche n° 22, avec 
les contraintes supplémentaires dues à la longueur maximum autori- 
sée (ici 11, cf ligne 9885) et à la présence d'un point au plus. 


Adaptation 


Le point le plus important est sans doute le changement du nombre 
maximum autorisé de chiffres, afin de tenir compte du nombre de 
chiffres significatifs du BASIC utilisé. 





2 ————_—_—_—" 


9390 
9805 
9819 
9315 
9829 
9325 
9539 
9335 
9849 


9545 
2359 
2555 
9599 
9365 
2579 
9575 


955 
3335 
Y899 
9325 
9909 
93995 


991 
9915 
9929 
9925 
9931 


9935 
9940 
9945 
995) 
9955 
9969 


REH “= LECTURE D'UN HOMBR£ POSITIF. 


REM ACCEPITZ LES AOUSRES DE LA FORME : 

REii XXA(CR) , XXX.(CK) , -XKX(CX) OU XX.XKK(C) 
RE LES X ETANT DES CHIFFRES DE 9 À 9 

REM ET LE MAYRE MAXIAUÏ DE CHIFFRES 

REM ETANT DE 11. 

Rkil LES EVENTUELS ZEROS EN DEBUT UE VALEUR 
REM PRIS ëA COMPTE. 


Z=0:4E:1 VALEUR LUE. 
PT=0:&GN PRESENCE D'UN POLNT. 
A4=ASC("U") 

A9=A50("9") 

c$="":RE1 CUAINE DU NOMBRE. 
R$="":REA CARACTERE LU. 


PRINT R$;:1F LEN(ZS)>=11 TUEN 9935 

SET R$S:IF R$="" TUEN 9890 

R=ASC(2S):IF R$="." AND PT=l Tiiln Y890:RE1 UN POINT AU PLUS 
IF RD=A£ AN:) R<=AQ THEN ZS=ZS+S:GOT0 9885 

IF R$="." THEN Z$=LSHRS:PT=1:GOTO 9885 


——_—————…—…—…—…— 


lé &<>20 OR Z$="" THEN 9930:REM 20=CODE DE DEL. 
RS=RIGUTS(ZS,1):IF R$="." TUEN PI=0 

PRINT" !";2S;"!";:IF LEN(ZS)=1 [UEN Z$="":COTO 9399 
ZS=1LDS(ZS,1,LEN(Z$)-1):GOTO 9899 

LF XCD13 OR LEN(ZS)=) T'IL4 J890:RE! 13=CODE DE RETURN. 


RE + UN À LA CHAINE COMPLETE. 
REM ON PEUT MAINTENANT UTILISER VAL 
REM SANS PKOBLIEMEE 

Z=VAL(Z$) 

PRLAIT:REM OÙ VA LA LIüuc. 

RETURN 








EEE 
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; FUSION ET INTERSECTION 
DE DEUX TABLES TRIEES 


Ces programmes en BASIC permettent de réaliser soit l'intersection, 
soit la fusion de deux tables triées. 


On a souvent besoin, étant données deux tables triées AetB 
d'en extraire une table triée C où est réalisée soit la fusion, soit 
l'intersection des deux tables initiales. 

La Je d'incrémentation des pointeurs de tables est très 
simple. 

Notez l'utilisation, comme indicateur de fin de liste ou de fi- 
chier du chiffre 9999. L'idée est d'employer un indicateur qui 
n'aura jamais à apparaître dans la liste : un nombre non binaire 
dans une liste binaire, un nombre négatif dans une liste d'élé- 
ments tous positifs, une chaîne de caractères particuliers (des 
— où des *) dans une liste alphanumérique. 

On peut désirer connaître, dans le cas de la fusion, la prove- 
nance de chacun des éléments de la liste résultante : liste À, 
liste B ou les deux. Ceci est réalisé en créant une liste C$ qui 
sera éditée en même temps que la liste C. 

On peut ainsi détecter les répétitions entre les deux listes 
origines. 


Une autre façon est de faire exécuter la routine d'intersec- 
tion des deux listes origine. On y remarque également la logi- 
‘que d'avance dans les tables qui évite de comparer successive- 
ment chaque élément de A avec tous les éléments de Benutili- 
sant le fait qu'elles sont triées. 

Une amélioration (simple !11) consiste à ajouter le même in- 
dicateur de fin de table (9999) pour C. 


REMAARRARRRRRARARRR ARENA ER RRRRRÉERRRRRRARRARARRRRARRRRERRRRRRARRRAR RER R À A 


RE“ INTÉRSECTION DE 2 TABLES CRIEES 


REMAARRAARRRAMARRRARARARARRRRRARARRRARRARARARRRRRRÉRRRARRRRER RER NE À A À A 


RE“ COPYRISHT : L'ORDINATEUR INDIVIDUEL 
RE‘ ET L'AUTEUR 


REMAARRRAR EEK NA AMAR AR HR RAA AK KA HU UN AR AA AAA ON RAR RO RNA RAR A ANR NN À à À À 


REM EXEMPLE : 
REM 
RE: TABLE A ET TABLE B ---» TABLE C 
REM 

REA 

REM 

REM 

REM 

REM 

REM 

REM 


REM 
REMARRRARRRÉARRRMARRRRRRARRÉRRRRRÉRÉRRRARXARÉRRARARARÉRRR RER RAR RAR À À AE À À 








REA SÉQUENCE D'ESSAI 
UIA A(10),B(19),C(20) 
FUR [I=1 T0 9 
h(1)=1:3(L1)=2*1 
NEXT L 
A(192)=9999:8(19)=9999 
GOSUB 349 
PRINT"TABLE A","TABLE w*,"TAALE C" 
FOR I=l TO 19 
PRINT A(I),38(1),C(1) 
NEXT [L 
END 
RÉMRRARRRARARRRARRRARERRRRRRRARRARRRRRERÉRRERRÉRRÉARRÉRRRRÉRRRRÉ ARR KR K KR R À N 
REA PROGRAMME 
L=l:J=1:K=1 
IF A(L)<8(J) x L=L+1l 
ELSE IF A(L)=B(J) THEN C(K)mA(L) :EmL#+l :J=J4+1 :k=R+l 
ELSE J=J+1 
1F A(L)<9999 9R 8(J3)<9939 LIEN SO0ID 350 
RÉTURN 





AREA de ee ee ee A A A A A A A A A A 
REM FUSION LE 2 TABLES TKIEES 

REA de de de ee ee ee ee ee ee A A où ee A re A A de 
REA AUTEUR : JACQUES BOISGONTIER 

REM COPYRIGUT : L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 
REMAARRRRRRRRRARRR AR RRR RAR AR RAR RAR ARR ARRRARRRRARRARARRRRARARRRRRRAR ARE 
REM EXEMPLE : 

REM 

REM TABLE À ET TABLE B ---» 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


;TAB(23) “:";TAB(30)":";TAB(31)CS(L); TAB(35)C(1);TAB(40)":" 


300 
319 
320 
330 
340 
350 
360 


370 
380 
390 
400 





REA 
KEM 
REM 
REA 
REM 
REM 
REA tot 3 
REM : 9999: 
REM 
RM A  e  de ee A A  A A A  A 
REM SEQUENCE D'ESSAI 
DIM A(10),B(10),C$(20),C(20) 
FOR I=l TO 9 
ACI)=2#I : B(I)=I 
NEXT I 
A(10)=9999 :8(10)=9999 
GOSUB 330 
PRINT “TABLE A","TABLE B","TABLE C" 
FOR I=L1 TO 10 
PRINT TAB(2)":";TAB(4) A(1);TA8(10) “:";TAB(15)":";TAB(17)8(1) - 


NEXT I 

END 
CRPLITILLILLLILLLLILIILLLI LL LEE LELELEELLLL LEE LE TELE) 1171111111: 11,1111111111))) 
REM PROGRAMME 

Lel :J=1 : K=l 

REM BOUCLE DE MISE A JOUR 

IF A(L)<B(J} THEN C$(K)="A ":C(K)=A(L) : LeL+l 

ELSE IF A(L)>B(J) THEN  CS(K)="B “:C(K)=B(3) 1JmJ+l 
ELSE CS(K)="AB":C(K)=A(L) tLeL+l :J=J#1 
Kek+1 

REM TEST AVANT RETOUR EVENTUEL 

IF A(L)<9999 OR B(J)<9999 THEN GUTO 350 

RETURN 
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Liste du programme 


10 KEM # CAUKAGE D'UN PROCRA 


20 & 


1 AUTEUR JACQUES BOISGOUNTLER 


30 &E:t COPYRIUGIIT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 
DO REMRARÉRRRRAR ARR A AAA RM RRRARRAR ARR RAA RAR AN ARARRRARRRRARRRRÉRAR ARR RRRRRARRRRRARRRRRRRRÉRA RÉ. 


100 
119 
120 
130 
140 
150 
160 
170 
130 
190 
200 
300 
319 
320 
330 
340 
350 
360 
370 
380 
390 
400 
#10 
420 
500 
519 
520 
530 


RE: Ce programne permet d'edicer un programne en cadrant les boucles FOR 

EH ét les comnentaires. 

REM R 

RE PROGRAMME DE WECALAGE DES BOUCLES ‘FOR! (FOR ET NEXT APPAIRES) 

REM (Si FOR-NEXT pas appaires,recadrage automatique sur une 

RE“ boucle FOR externe) 

REM 

REM CADRAGE des COMMENTAIRES en COLONNE 60 

RE“ 

REM VERSION MICROSOFT AVEC ESPACES SEPARATEURS(A ADAPTER POUR TRS 80) 

REM 
REM==n=mennnnnnnnssnnnnssmmmmmnnnnss ns sms en n ns nnnsnnnsnmnn ans nnn ss 
REM Debut du programme 

REM LIGNES Ligne lue dans le fichier 
REM LTRAITS : Ligne sans les commentaires 
REM 

MARGE=5 

LIGNES="" 

ENPUT “NOM DU PKOURAMME? "; PGMS 

OPEN “1",#1,PGMS 

REM 

IF EOF(L}=-1 THEN STOP 

INPUT #1, NUM 

LPRINT NUM; 


REM==mmmmmmmnm 





Sauvegarde en ASCII 


REM fin de fichier 
REM No de ligne 


REM separation programme Ct commentaires 

REM 

REM XXXXXX Analyse commentaire 
REM 

REH 


CC=60 REM Cadrage commentaire 
REM 


LINE INPUT #1,LIGNES 

LIGNES=" “+LIGNES 

REM 

PE=0 

PL=0 

REM 

PL=INSTR(PLÉ+1,LIGNES ,CHRS(34)) 

IF P1<20 TIEN P2=INSTR(PL+1,LIGNES ,CHRS(34)) 

ELSE P2=0 

REM INSTR effectue la recherche d'une sous chaine (ici “) dans une chaîne de caracteres 
(ici LIGNES) et donne ,s1 elle existe, le niveau a laquelle elle se trouve. 

REM CHR$(34) est equivalent au signe “ (dont Le code ASCII est egal a 34) 

REM 


REM Lecture d'un enregistrement 


P(2)=INSTR(PE+L ,LIGNES, 
P(3)=INSTR(PE+L,LIGNES, 
REM 
PE=255 
FOR I=1 TO 3 :: REM Recherche du plus petit 
1F P(I)<20 THEN IF P(I)<PE THEN PE=P(I): RP=I 
NEXT I 
REM 
IF PE=255 TIEN PE=0 
REM 
IF PE<>Q THEN IF PE>PL AND PE<P2 THEN PE=P2: GOTO 620 
IF PECD>O THEN LTRAITS=LEFTS(LIGNES ,PE-1) 
: COMS=RIGHTS(LIGNES ,LEN(LIGNES)-PE+1}) 
ELSE LTRAITS=LIGNES: COMS="" 


Recherche FOR et NEXT 


=. FOR “---=- FOR I=l TO 10 Analyse d'une ligne 
! 


P2 





940 
950 
960 
970 
980 
990 
1000 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1300 
1319 
1320 
1330 


1340 


1350 
1360 


Liste du programme (suite) 


REM 

REM Limite de La chaine à analyser 

Premier quote 

Deuxieme quote 

REM Presence de FOR dans la ligne 
Presence de NEXT 





REM 
PE=0 
PE=0 
FR=0 
NX=0 
AMARGE=MARGE 
REM 
PL=INSTK(PE+1,LTRAITS,CHR$(34)) 
1F PLC>0 THEN P2=INSTR(P1#1,LTRAITS,CHRS(34)) 
ELSE P2=0 
FC=P2 
IF FC=0 THEN FCe255 
REM 
X$S=LEFTS(LTRAITS,FC) 
P(1)=INSTR(PE#+1,X$," FOR “) 
P(2)=INSTR(PE+H1,XS,": FOR") 
P(3)=INSTR(PE+1,XS," NEXT “) 
P(4)=INSTR(PE+1,XS,":NEXT “) 
PE=255 REM Longueur maximum de la chaîne 
a analyser 
FOR I=1 TO 4 REM Recherche du plus pres 
1F P(L)<>0 THEN IF P(I)<PE THEN PE=P(I): RP=1 
NEXT LIL 
REM 
IF PE=255 THEN PE=0 
REM 
IF PEC>0O THEN IF RP<3 THEN IF PE>P1 AND PE<P2 THEN PE=P2 ELSE MARGE=MARGE+3: FR=l 
IF PE<>0 THEN LF RP>2 THEN IF PE>P1 AND PE<P2 THEN PE=P2 ELSE GOSUB 1330: NX=1 
IF PE<>0 THEN GOTO 920 
IF FC<255 THEN PE=P2: GOTO 920 
MERE 
IF FRel THEN LPRINT TAB(AMARGE); LTRAITS;TAB(CC); COMS: GOTO 400 
IF NX=1 THEN LPRINT lAB(MARGE);LTRAITS;TAB(CC);COMS: GOTO 400 


REM==-mmmmmmmmmmmmmmmmmmmmmmmmmmen sms mmmmmm 





REM Ligne normale 

REM 

IF LTRAITS="" THEN LPHINT ;COMS: COTO 400 

IF LTRAITS=" ” THEN LPRINT ” COM$: GOTO 400 
REM 

IF LTRAITS<>" “ THEN LPRINT TAB(MARGE); LTRAITS; TAB(CC); COMS: GOTO 400 
REM 


REM---mmmmmmmmnmmm 


REM Ligne commentaire 
REM Ligne commentaire 








REM Traitement de NEXT ou NEXT 1,J,K 
REM 
IF MARGED>5 THEN MARGE=MARGE -3 
ELSE PRINT “FOR-NEXT PAS APPAIRES EN: 
PP=INSTR(PE+1 ,LTRAITS,":") 
IF PP=0 THEN LNXTS=LTRAITS 
ELSE LNXTS=LEFTS(LTRAITS, PP) 








PV=PE 
PV=INSTKÇ(PV+I,LNXTS,", 
IF PV=Q0 THEN 1380 
ELSE IF MARGE>5 THEN MARGE=MARGE-3: GOTO 1360 
ELSE PRINT "FOR-NEXT PAS APPAIRES EN: “;NUM: GOTO 1360 





REM 
RETURN 


REM=--mmsmmmmmmmmmmnmmnmmmmmmmmmmmmmmnsnnnmsnmmmmmmmenmmmmmmmmmmm 





REM Sur TRS 80 ,il n'y a pas de separateur. Les noms de variables comportant FOR 

REM et NEXT ne sont donc pas acceptes. Le programme s'en trouve sensiblement simplifie 
REM 

REM 960 

REM 970 PE=INSTR(PE+1,XS, FOR") 

REM 980 





REM 990 
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Fiche pratique 


Pour se prémunir contre des destructions de fichiers en 
cours de mise à jour, une solution simple (et vivement conseil- 
lée !) consiste à prévoir un fichier différentiel. Dans ce fichier, 


on duplique tous les enregistrements du fichier principal qui 
ont été modifiés. Il est ainsi possible de regénérer un fichier 
détruit en cours de mise à jour grâce à la dernière sauvegarde 
et au fichier différentiel. 





La sauvegarde des enregistrements modifiés est effectuée 
dans un fichier en accès direct dans le programme qui suit. On 
pourrait également la réaliser dans un fichier séquentiel ce qui 
donnerait un programme légèrement différent. 


Il peut être utile de prévoir une sécurité qui indique, à chaque 
fois que le fichier différentiel devient trop important, le moment de 
réaliser une sauvegarde du fichier principal et de remettre à zéro le 
fichier différentiel. 

VUNTER — Eica de cŒiaetc À > 


: DUPONT. 


21 








LA 
ms 
MARTIN 74 


Fichier principal Fichier différentiel 


Le programme tourne sur TRS-80. Sur d'autres systèmes, il 
faudra remplacer LOF (2) + 1 par LOF (2)— lignes 240-50.300.) 





GESTION DE 


FICHIER DIFFERENTIEL 


10 
20 
30 
40 
50 
60 
70 
80 
90 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 

PA 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 





GESTION DE FICHIER DIFFERENTIEL 
AUTEUR : JACQUES BOISGONTIER 
COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 
OPEN "R",#1,'""FPRIN'"' 


OPEN "R",#2,"FDIFF" 


FIELD #1,15 AS N$,20 AS RIEN$ 
FIELD #1,126 AS 118$ 
FIELD #2,126 AS 12$,2 AS NES 
= 
INPUT "MODE? ‘M$ 
IF M$="'C"" THEN GOSUB 160 " CREATION 
IF MS=""REGEN'"" THEN GOSUB 290 " REGENERATION DU FP 
GOTO 100 
dopé amou-ié no 80 CREATION / MODIFICATION 
INPUT "QUEL ENREG?'':RANG 
INPUT "NOM? "':XS:1F X$='""" THEN RETURN 
LSET 11$=STRINGS$ (CHRS (0) ,126) 
LSET N$=X$ 
PUT #1 ,RANG 
=== SAUVEGARDE DANS FICHIER DIFFERENTIEL 
LSET 12$=11$ 
LSET NE$=MKIS(RANG) 
PUT #2,LOF(2) + 1 "POUR TRS 80 
PRINT "LOFC2) + 1 =":LOF(Z) + 1 
GOTO 170 
l==------ REGENERATION DU FICHIER PRINCIPAL 
! 
PRINT;INPUT "AVEZ-VOUS REMPLACE LE FICHIER PRINCIPAL 
R LA DERNIERE SAUVEGARDE? ‘:R$ 
FOR I=1 TO LOF(2) + 1 
GET #2,1:1F CVICNE$S)=0 THEN 360 
X=CVIC(NES) 
LSET 11$=12$ 
PUT #1,X 
PRINT "'X=":X:NS 
NEXT I 
RETURN 
l=------- LA SAUVEGARDE DES ENREGISTREMENTS MODIFIES 
"POURRAIT ETRE FAITE DANS UN FICHIER SEQUENTIEL 
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l'ordinateur pro 








Qui ne se souvient de la chanson de Jacques 
Brel «Rosa Rosa Rosam... Rosarum Rosis Ro- 
sis » ? Cet énoncé faisait alors apparaître le latin 
comme une discipline bien plus avenante que ne 
le laissaient supposer certains énormes diction- 
naires. Car si le latin est dit «langue morte », il 
reste cependant bien vivant en de nombreux en- 
droits ainsi qu'en témoigne cette rencontre avec 
l'informatique individuelle. 













A CE US 7 


PER JOVEM : MALUS \ 
( PROGRAMMVS ETIAM 
INTRODVCTVM FVIT! 










CTI TL NÉ DE 
l LELOL DATE 1] 
pr TE 


Urv Ye 











la fn du déclin: 


l'ordinateur 


refrouve 


votre latin 





Après avoir beaucoup souffert 
avec l'apprentissage des cinq décli- 
naisons que comporte lelatin,onse 
rend compte qu'elles obéissent fi- 
nalement à des règles très strictes. 
Il ne reste alors qu'à franchir en- 
suite le pas qui consiste à se dire 
«mais alors pourquoi ne pas l'auto- 
matiser ». On peut obtenir ainsi un 
programme qui à partir du nomina- 
tif et du génitif d'un moten donnela 
déclinaison. 


Ces deux renseignements sont 
les seuls dont le programme ait a 
priori besoin pour fournir l'ensem- 
ble de la déclinaison ainsi que son 
numéro (première, troisième...). 
Néanmoins, il peut y avoir doute. 
Dans le cas de la troisième déclinai- 
son par exemple, le programme de- 
mande alors le genre du mot, puis, à 
partir de ce renseignement, déter- 
mine s'il s'agit d'un impari (ou pari) 
syllabique avant de fournir la décli- 
naison. 


L'intérêt de ce programme est 
donc qu'il traite effectivement tous 
les cas avec une information de dé- 
part minimum. On trouvera ci- 
contre la liste ainsi qu'un exemple £ 
d'exécution. 


Olr 21 


Qui a dit que le latin était mort ? 
Fluctuat nec mergitur | 


Alain Richard 


remière parution : L 


P 
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DECI 1 NAISONS 
READY. 


RE AH EAN ERA RE RER RENE ER EN ER ER NEREt Entente [ENTREZ LE NOMINATIF DU MOT A DECLINER - --) ANIMAL 
REM * DECLINAISONS LATINES # 
REN * ALAIN RICHARD / JUIN 1989 / LYCEE DÙ FORTAIL ROUGE / ST ETIENNE * ENTREZ LE GENITIF DU MOT A DECLINER - -)} ANIMALIS 
Éd Lee vue cc IiN dMÉi Nuggets LL 
MSPC 10) "DECLINAISONS LATINESN" : ; 
INPUT'ONOMINATLF DO MOT HMBIMiN#: IF LENCNE)CS THEN 69 REA RUERECRNRE ESS EEENOU: 
RINT 
INPUTUOSENTTIF OÙ MOT  .IMi":G1$1F LENCGI#)<3 THEN 88 1-MASCULIN 
39 R$SLEFT#CG1#, LENCGLT)-20 : GH=RIGHTF(G1$.2) 
188 IF G$="AE" OR GF="ISN OR GF="US' OR G3="El" THEN 129 
115 RF=LEFT#(G1#,LENCOIF)-10 : GE=RIGHTECGIF, 13 :IF GHCD"I" THEN RUN 
1F G$="AE" GOTO 180:REM PREMIERE DECLINAISON 
1F G$="1" GOTO 229 REM SECONDE  DECLINAISON 
IF G$="1S" GOTO 319 REN TROISIENE DECLINAISON 
1F Gé="Lé" GOT0 650:RENM QUATRIEME DECLINAI 
IF G$="El" GOTO 720 REM CINQUIEME DECLIHAIS 
TT POP PP TT TT TRE LI ASSET PIEDS TT I LI III IZ222LILILILIT LL 2 2 
REM PREMIERE DECLINAISON TROISIFME DECLINAISON 


AE AE AS ARUMIS IS "REM DESINENCES PARISYLLABIQUE NEUTRE 
PRINT"OMTABCIGD "PREMIERE DECLINAISONN" : Y$2N5 :GOTO7 78 
FAR DIT ETS TITI IT TES EL SSI LOL DITS TSI TT ETS PTS PTT TITI I TT ITS TT TE ITS 
REM SECONDE DECLINAISON CAS SINGULIER PLURIEL 
RE 
AE="UM 1 OO I I OS ORUMIS IS ":REM DESINENCES a 
IF RIGHTSCNE, 2)=" UM" THEN A$="UM EL OO © À À À  ORUMIS IS " NORENSETE ANIMAL ANIMALIA 
T#= "SECONDE DECLIHAISON":IF RIGHT#CH#,2)>="UM" THEN T#=T$+" NEUTRE" 
PRIHT M A"TAB(20-LENCTE 3/2) T4": VE=R$+"E" POSER pural ANIMALTA 
Rd A OR RIGHTFCNSE, 13="R" THEN VF=N$ ACCUSATIF ANIMAL ANIMALIA 
GOTO 774 
REM AR AORROE A EE ER EEE RARES ||GENTT TE ANIMAL1S ANIMAL.TUM 
REN TROISIEME DECLINAIS 
RENM DATIF ANIMAL]I ANIMALIEUS 
REM PARISYLLABIQUE ? 
IF MIDECH#,1,LENCR#D>CDRE THEN PAG: GOTO 368 ABLATIF ANIMALI ANIMAL 1 BUS 
AF=MIDECHNS, LENCR#)+1) IF LENCA#)=D OR LENCA#)2:2 THEN PA=@: G0TO 399 
IF Af="E" Of Af="ES" OR A$="15" THEN PA=1 
REM FAUX IMPARISYLLABIQUE ? 
IF LEN<R#)<Z THEN FP=9:GOTO 42@ 
A=ASCLMIDECRE ,LENCR#)-1, 13): ch 4, LENCRE ) ENTREZ LE NOMIN ST AH 
IF A=6S OR A=69 OR A=73 0 A= =35 OR H=89 THEN 420 S SAR ER PINS OS DEERTNERI TEEN NÉRC LEE 
IF B2265 AND BC269 AND EC>73 AND EC>79 AND E€285 AND B£>69 THEN FP=1 ENTREZ LE GENITIF DU MOT A DECLINER =. -) EXERCITUS 
REM GENRE DL HOM ? 
PRINTUIDE QUEL GENRE EST CE NOM":PRINT"M MASCULIN" :PRINT"M FEMININ" QUATRIEME NECLINAISON 
PRINT"AS NEUTRE ANA" 
INPUT", OÙ 3 1HNMM":2#.IF Z$C>"{" AND 25<>"2" AMD 2$<>"3" THEN 458 CAS SINGULIER PLURIEL 
FEM FAUX IMFARISYLLRBIQUE DE TYPE “ANIMAL-ANIMALIS" 
" AND CRIGHTECHS.20="AR" OR RIGHTSCH#,22="AL") THEN PA 
JENCES PARISYLLABIQUE NEUTRE DU TYPE "MARE-MARIS" PORENATRE EXERCITUS EXERCITUS 
“ AND FA=1 THEN AS="E IS I I IA IA IA IUM 1BUSIBUS" 
IF 2$="2" AND FA=1 THEH V$=Nf:GOTOSS0 SPRATEE ERERATHE FREREITUS 
REM DESIHENCES PARISYLLABIQUE ET FAUX IMPARISYLLABIQUE <"CIY1S", "URES") | 
IF FP=1 OR PRe1 THEN PE="EN 15, 1 € ES ES ES TU IBUSIEU" PARLE EPERCNIEN RAMÈNE 
=1 OR PAzl THEN VS$=N$ GOTOSS GENITIF ve 
REN IMPARISYLLABIQUE NEUTRE "FLUMEN-FLUMINLS" 5 ERENGATLE ÉÉPRIM" 
IF 2$="3" THEN A#=" 15 LE À A À UM UEUSIELS":V$=N$ GOTOSSS DATIF EXERCITUI EXERCITIBUS 
REIN IMPARISYLLABIQUE DU TYPE "CONSUL-CONSUL 15" 
Af="EM IS I! E ES ES ES UM IBUSIEUS":V#$=N$ ABLATIF EXERCITU EXERCITIEUS 
PRIHT"NUTAEC 10) "TROISIENE DECLINAISON" 
IF Phz1 THEN T#="PARISYLLABIQUE" :GOTO620 
IF FP=i THEN T#="FAUX IMPARISYLLABIQUE" :GOTO 629 DECLINAISUNS 
T$=" IMPARISYLLABIQUE" 
IF Z$="3" THEN T#=1#+" HEUTRE" RE 
PRINTTABC2M-LENCTF)/23TF GOTO 77a ENTREZ LE NOMINATIF DU MOT À DECLINER ---}) CORNU 
RE AREA AREA AO AE RARE AC EE AE AA EEE RE AE AE EEE NN 4 à : 
RENM OUATRIEME LECLINAISON ENTREZ LE GENITIF OÙ MOT À DECLINER ---) CORNUS 
RENM QUATRIEME DECLINAISON NEUTR 
ff="UN US UI Ü US US US UUM IEUSIEUS":Y#=N5:REM DESINENCES A) LÉ 
IF RIGHT#CNE; 12="0" THEN A$="0 US UI U Un UA UA UUM IBUSIBUS" CAS SINGUL ER PLURIEL 
T#="QURTRIEME DECLINAISON":1F RIGHT#CH#, 12="U" THEN T#=1#+" NEUTRE" 
PRINT"OMTABCEG-LENCT#)/207$-GOTO 770 
RE AN ARR AR ARE OR EE RE nee | NOMTINATIF CORNU CORNUA 
Hé VOCATIF Cornu CORNUA 
A$="EM El EI E ES ES ES ERUMEEUSEEUS":REM DESINENCES 
PRINT" A" TAB 10) "CINQUIEME DECLIHAI SON" CEPUTUE CORNUA 
REM HAE AU ER EEE EEE EEE EEE ER ER RRNERE RER EEE ER ER RRENEN EEE | cencTTr CORNUUN 
REM EDITION DE LA DECLINAISON 
PRINT MAS" TAEC 122 "SIHGULIER" TAB 282 "PLURIEL AN" DATIF CORNIBUS 
RESTORE : READCAS :PRINTCASTABS 12HETABC28)RFMINE CAS, 17, 400" 
REBD CA$:PRINTICASTAECI2)VETAB(28)R#MIDE AS, 21, 4) ABLATIF CORNU CORNIBUS 
Z=G: IF CPA=& AND FP=ÿ AND 24="3") OR CPAz1 AUD Z#="3") THEN GZ=1 
THEN RERDORS-PRINTORSTABCI2ONETAB(2E)REMIDECAE, 25,4") 


DECLINAISONS 


DECLINAI SONS 


PRINTORSTARC12)RSMIDEC AS, Lkd+1 , AITABC2S)RSMIDE CAS, LK4+25, 4) "a" ... AN ren à à: NN 
G HEXT 1:PRINT"A" > 
IHFUT'AY/QULEZ-VOUS RECOMNENCER ONE" ;A$ RTE RER , | He. 
G IF LEFT#CAS: 1202"0" AND LEFT$CAS,13C)"N" THEN 870 DES ATTE DU) Por A INECCERES ET) RE 
IF LEFT$CA$,13="0" THEN RUH CINQUIEME l'ECLINAISON 
PRINT "1" : END 
RE RER ER EEE EEE RER ER ERRNRRR ANR RER ERAERANRRREE || CAS SINGULIER PLURIEL 
DATANOMINRT IE, YOCATIF, ACCUSATIF; GENITIF. DATIF, ABLATIF 
RE AAA ANA RERO AE AE EEE DEEE 
REM * NOMINATIF RES 
RENM + AF=DESINENCES: R#=RADICAL ; G1#=GENITIF DU MOT 4 
RENM # G$=GENITIF DE LA DECLINAISON ? MS=NOMINATIF DU MOT ; V#=VOCATIF | LMOCATIS REE 
REM * T#=Hi0M DE LA DECLINAISOH * à 
FEN # GEME DEC. 2#=0ENFRE DU POT < , we || ACEUSATUE RES 
REN FP=FLAG POUR FAUX IMPRRISYLLABIQUE * 
7 FE PR=FLAG FOUR PARISYLLAEIQUE x [| SEMITIF HERUN 
* |[oatir REBUS 


Ë REM 
320 REM 
READY. 


* 
*+ 
RENM # SI PA ET FF SONT NULS ALORS IMPARISYLLABIQUE 
* 
* 


* 
MAUR AA AE AREA AE EEE RE EEE | | ABLAT LE REBUS 


liste de programme sur Pet exemple d'exécution 
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l'ordinateur prof 


en classe 





comptez-bien sur votre ordinateur 





En classe de cinquième, le programme de mathé- 
matiques prévoit l'étude des nombres entiers. 
L'enseignant est amené à introduire de nom- 
breuses notions nouvelles : divisèurs et multiples 
d'un nombre, diviseurs communs et multiples 
communs de deux nombres, et finalement nom- 
bres premiers et factorisation première d’un nom- 
bre. Cette dernière est une notion-clé lors dela re- 
cherche de tous les diviseurs d’un nombre ou lors 
du calcul du plus grand diviseur commun (PGDC) 
ou du plus petit commun multiple non nul 
(PPCM). Tous ces problèmes sont résolus par des 


règles de calcul assez simples. Pour l'élève, la 


seule façon de les assimiler est de faire de nom- 
breux exercices. L'enseignant, lui, n’a pas à refaire 
tous ces calculs ; seul le résultat l’intéresse. Quoi 
de plus simple alors que d'écrire le petit pro- 


gramme en BASIC présenté ici ? 


Avant d'en arriver au programme 
proprement dit, rappelons quelques 
notions fondamentales. 


Un nombre premier est un nom- 
bre qui admet comme seuls divi- 
seurs 1 et lui-même. 


Par exemple, les diviseurs de 7 
sont 1 et 7 donc 7 est premier ; les 
diviseurs de 9 sont 1, 3 et 9 donc 9 
n'est pas premier. 

La factorisation première d'un 
nombre est la décomposition de ce 
nombre en un produit de nombres 
(ou facteurs) premiers, soit par 
exemple : 100= 2*2*5*5; 40 — 
2*2*2"5 

Rappelons à l’aide d'un exemple 
comment on trouve le PGCD et le 
PPCM de deux nombres. 

. D'abord il faut décomposer ces 
nombres en facteurs premiers. 

. Le PGCD est le produit des fac- 
teurs communs aux deux nombres : 
PGCD (40,100) = 2*2*5 = 20 


. Le PPCM est le produit des fac- 
teurs apparaissant au moins une 
fois dans les deux nombres : PPCM 
(40,100) = 2*2*2*5*5 — 200. 

Il est utile de remarquer que 
40*100 = PGCD (40,100) * PPCM 
(40, 100) 

La méthode ci-dessus est celle 
qui est enseignée, car c'est la plus 
simple, mais ce n'est pas la plus ra- 
pide. Considérons l'exemple sui- 
vant. 

100 = 40*2 + 20 
40=20*2+0 

On divise le grand nombre (100) 
par le petit (40). Tant que le reste de 
la division n’est pas nul, on divise le 
diviseur par le reste. Lorsque le 
reste est nul, alors le PGCD est le 
dernier diviseur obtenu. 


Autre exemple :PGCD(26,84) =... 


84 = 26* 3+6 
26 =6* 4+2 
6=2*37%0 


PGCD (26,84) = 2 

Ayant le PGCD on a immédiate- 
ment le PPCM 
PPCM (a,b) = a*b/PGCD (a,b) 

Maintenant nous sommes prêts à 
aborder le programme proposé. 

La partie centrale du programme 
qui comprend les lignes 100-250, 
est une boucle infinie. En fonction 
du problème choisi, l'ordinateur 
continue avec le sous-programme 
correspondant (ligne 220). Ensuite, 
il recommence dès le début ou avec 
le même sous-programme (230- 
250). 

Les sous-programmes 1 000- 
2 250 indiqués à la ligne 220 sont 
en fait des routines abordant le pro- 
blème. Les calculs sont effectués 
dans les sous-programmes com- 
mençant aux lignes 2 600, 2 800, 
2 900, 3 100 et 3 200. 

Remarquons que ces sous-pro- 
grammes sont les plus importants 
et cependant ils représentent 
moins d'un quart du programme. 
D'autre partil ne faut pas sous-esti- 
mer le rôle des calculs préliminaires 
dans les routines 1 000-2 250. Ils 
permettent de rendre les routines 
de calcul beaucoup plus efficaces. 

Par exemple, à la ligne 1 120 on 
vérifie que le nombre est impair, si- 
nonil est inutile de rechercher dans 
la routine 2 600 s'il est premier. 


L'adaptation à d'autres ordina- 
teurs ne présente que peu de diffi- 
cultés. Le programme utilise sou- 
vent la fonction INKEY $. Celle-ci 
estuniquement utilisée par commo- 
dité et peut donc être remplacée par 
INPUT. 


Finalement PRINT @ 128, écrit 


en haut de l'écran et PRINT @ 832, 
écrit en bas de l'écran. 

Si vous cherchez les diviseurs 
d'un nombre qui en a plus de 100, il 
vous faudra modifier la ligne 100en 
fonction de vos besoins. 


Jean-Paul Zanter 
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Première parution : L'Ol n° 27 


10 REM 
20 REï 


Liste du programme 


* LES MATHEMATIQUES À L'ECOLE * 
AUTEUR JEAN-PAUL ZANTER 


30 REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 
PORN LCL LITE TEL LILI CCE CCE LLCLCELELCLEELE LCL ET CEE EECT DEC EEE TELE EEE 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
1000 


1010 PRINT "LISTE DES NOMBRES PREMIERS LE 


DIH D(50),9(50) 
CLS 

PRINTY128, 

PRINT TAB(14),"1 
PRINT TAB(14),”"2 
PRINT TAB(L4),"3 
PRINT TAB(L4), "4 
PRINT TAB(14),75 
PRINT TAB(L4),"6 + MULTIPLES COMMUNS" 

PHINT CAB(14),"7 = FACTORISATION PREMIÈRE" 

GOSUB 2300 : REM CHOIX D'UN PROBLEME 

CLS 

ON PC COSUB 1900,1200,1300,1500,1700,1900,2100 
PRINT @832,"AVEZ-VOUS UN AUTRE PROBLEME SEMBLABLE?" 
GUSUB 9000 : REM TEST SUR LA REPONSE 


IF R$="0" THEN 210 ELSE L10 
FTA'LLLELELLEEEECE TETE ETES 


NOMBRES PREULERS" 
PGCU ET PPCH" 
DIVISEURS" 
DIVISEURS COMMUNS" 
MULTIPLES" 


COCCLES CLLELEL LES LELLILILLL. LL 


LEE 


1020 GOSUB 2400 : REM LECTURE DES DEUX NOMBRES 
1030 CLS 

1040 PRINT"LISTE DES NOMBRES PREMIÉRS ENTRE"; MIN; "ET" ; MAX” 
1050 PRINT 

1060 IF MIN > 3 T4EN 1120 

1070 IF MAX > 3 THEN 4=3 ELSE Z=MAX 

1080 FOR X=MIN TO Z 


1090 


PRINT %X, 


1100 NEXT X 


1110 
1120 
1130 
1140 
1200 
1210 
1220 
1230 
1240 


MIN=3 
LF MIN=INT(MIN/2)42 THEN IF MIN=MAX THEN 1140 ELSE MIN=MIN+1 
GOSUB 2600 


PRINT “CALCUL DE PSCD ET DU PPCM dE DEUX NOMBRES” 
GUSUB 2400 : REM LECTURE DES DEUX NOHBRES 
AmMAX: BeMIN 


GoSUB 2800 : REM CALCUL DU PGCD ET UU PPCM 


1250 CLS 


1260 


1270 PKINTÉ462,"PPCM("; MIN; 


PRINTÉ336 ,"PGCU(”"; MIN; ”,"; MAX; ")e 
HAX;")= 


1280 RETURN 


1300 
11310 
1320 
1330 
1340 


l'OL CCCCODOCPPEERENPENENNENENENNENEREnRRnnRnnRnnnEEnEnnntnnnnntt 
PRINT "RECHERCHE LES UIVISEURS D'UN NOMBRE" 

GOSUB 25% : AEM LECTURE DU NOMBRE 

CLS 

PRINT"LISTE DES DIVISEURS DE";MIN: PRINT 


1350 GOSUB 1400 
1360 RETURN 
1400 CECI 


1410 


THEN PRINT MIN : GOTO 1440 


1420 IF MIN=2 THEN PRINT “1”,MIN : GOTO 1440 
1430 AwMIN: GOSUB 2900: REM CALCUL DES DIVISEURS 
1440 RETURH 


1500 REMemmnn2nnnnnnnmnnsnannnnRnSTRNNNS ISSN SNS Sn Sn en e 


1510 PRINT "RECHERCHE DES DIVISEURS COMMUNS DE DEUX NOMBRES" 


1520 GOSUB 2400 


: RÉM LECTURE LES DEUX NOMBRES 


1530 CLS 

1540 PRINT"LISTE DES UIVISEURS COMMUNS DE";MIN; "ET"; MAX 
1550 PRINT 

1560 A=MAX: DeMLN 


1570 GOSUB 2800 


REM CALCUL DES UIVISEURS COMMUNS 


1580 MIN=PGCD 


1590 GOSUB 1400 


REM RECHERCHE DES DIVISEURS 


1600 


1700 


1710 PRINT "RECHERCHE DES MULTIPLES D'UN NOMBRE" 
1720 GUSUL 2500 : REA LECTURE DU NOMBRE 
1730 A=MIN 

1740 PRINT 0768,:INPUT'COMBIEN DE MULTIPLES"; MIN 
1750 B=ML\: GUSUB 2530 

1769 CLS 

1770 PRINT'LISTE JES";B8;"PREMIEKS AULTIPLES DE";A 
1780 PRINT 

1790 GoSuB 3100 : AËM CALCUL DES ‘AULTIPLES 
1800 RETURN 


1900 KEMH== 
1910 PRINT “RECUERCHE DES MULTIPLES CUMMUNS 
1920 GosUB 2400 


_…— mu 


VEUX NOMBRES" 
+ REM LECTURE DES DEUX NOMBRES 


1930 A=MAX: B=MIN 


1940 PRINT 3768, 


:INPUT"COMBIEN DE MULTIPLES"; MIN 


1950 GOSUS 2530 

1960 CLS 

1970 PRINT"LISTE DES"; MIN; "PREMIZRS MULTIPLES COMMUNS DE";B;"ET DE”;A 
1980 GosUB 2800 : REM CALCUL DU PPCH 

1990 A=PPCM » 
2000 B=HIN 

2010 GOSUB 3100 : REM CALCUL DES MULTIPLES 

2020 RETURN 


2100 REMemnmnnn mnt nn nn nn name nNn nan nn nn 
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PRINT “FACTORISATION PREMIER D'UN NOMBRE" 
GOSUB 2500 : REM LECIURE DU NOMBRE 
HE=MIN 
IF NF=l THEN CLS 

5 PRINT 4512,"L NE PEUT ECRE FACTORISE" 

+ GOTO 2279 
CLS 
PRINT'FACTORISATION PREMIÈRE DE”; NF 
PRINT 
A=2: GUSUB 3200 
LF NF=1 THEN 2270 
TT=Ù 
FOR A=3 TO SQR(NF) STEP 2 

ÿosuB 3200 
IF NE=l THEN A=SQRONF): TT 
NEXC A 
IF TT=l THEN 2270 
PRINT NF;"EXPOSANT 1" 
RETURN 
LUNCEPEPEPEPEEEEEEEEEECEPEECEECERREERENER 
REM CUULX D'U PROBLEME 
PRINT 4768,"QUEL PROBLEME VOULEZ-VOUS RESOUDRE?" 
PCS=INKEYS 
IF PC$="" THEN 2330 
PC=VAL(PCS) 
IF PC=0 TIIEN 2320 
RETURN 
REHememmmmsmmmmms mms 
REM LECTURE LES DEUX NOMBRES 
PRLATH768,: INPUT "LNTRODUIRE LES DEUX NOMBRES 
IF MINÇ>INT(MIN) OR MAXCDINT(HAX) CHEN CLS 
: PRINT 4768,"LES NOMBRES DOIVENT ETRE ENTIERS" 
: COTO 2420 
LF MINDAAX THEN J=MIN: MLNeMAX: AAX=Q 
LF MIH<=O THEN CLS 
: PRINTS768,"LES NOMBAES UOIVENT ÊTRE STRICTEMENT POSITIFS" 
: GUTO 2420 


"MIN, MAX 


manmssnennensmnnnnnnnsnnnan cos nansonnnnednnnsonnémnndnasounésennnnenns 
LECTURE D'UN NOMBRE 
PRINT#768, : INPUT" INTRODUIRE LE NOMBRE"; MIN 
IF MINOINT(MIN) THEN CLS 
+ PRINT®768,"LE NOMBRE DOIT ETRE ENTIER" 
+: GOro 2520 
IF MIN<=0 THEN CLS 
: PRINTY768,"LE NOMBRE DOIT ETRE STXICTEMENT POSITIF" 
: GOTO 2520 
RETURN 
L'ONCLLLELEREL ELLE EE ESS SEE EEE EE LEE RE RER EEE EE LEE LE LL LL LL EE) 
REM RECHERC:IE DES NOMBKES PRÉMIERS ENTRE MIN ET MAX 
FOR AeMIN TO MAX STEP 2 
2Z=0 
FOR D=3 TO SQR(A) STEP 2 
1F A=INT(A/D)*D THEN ZZ=l: D=SQR(A) 
NEXT 0 
IF Z2=1 THEN 2690 
PRINT 4 
NEXT À 
RETURN 
RE M 8 0 20 08 0 20 08008 00 0 20 08 0 08 20 0 0 0 2 NO 2 D A OO D OÙ 
REM RECHERCHE OÙ PGCD ET LU PPCM DE À ET DE B (A>8) 
PRODUIT=A*B 
IF B=0 THEN PGCD=A: PPCM=PRODUIT/A: S0TU 2870 
R=A-LNT(A/B)*8 
AnB: 88 
GOTO 2830 
RETURN 
L'OR DODEDEEEERERNENETSEREEEENEnnEnnEncnennnEnnnnennnnnnnEenennnnennnnnnnennnnnennennnnnennntnt 
REM RECHERCHE DES LIVISEURS DE À 
N=l; D(1)=1: QL)=A 
FOR D=2 TO SOR(A) 
R=A-INT(A/D)#*D 
IF R=O TAEu N=N+l: D(N)=D: QUN)A/D 
NEXT 0 
FOR Z=1 TO N: PRINT D(Z),: NEXT Z 
IF D(N)=Q(N) THEN NeN-1 
FOR Z=N TO 1 STEP-l: PRINT J(Z),: NEXT Z 
RETURN 
L'ÉCDEPOPDEROEPPRECEREENRREENENEERREnnEnEnnnEnnnnnnnnnnnnnnnnnnnennennennrentnneres 
REM CALCUL DES B PREMIERS MULTIPLES DE À 
FOR N=0 TO B=l: PRINT AMN,: NEXT N 
RETURA 
DORCLLLLLLELELELEEPE EEE ELLE EE EE CT ET EPP EE TELE LEE LEE LES LE DEEE EE LEE EEE EE ET EEE EEE 
REM CALCUL DES FACTEURS PREMIERS DE WF 
ND=0 
Q=NF/A 
LF Q=INT(Q) THEN ND=ND+L: NF=Q: GOTO 3230 
IF NU>O TÜEN PRINT A;"EXPOSANT" ; ND 
RETURN 
LR ÉPEPERRREREEREREEREEEREENEREENENEEnnnnnncnnnnenennnnnnnnnnnnnnsennnenenenents 
REH TEST SUR LA REPONSE 
R$=INKEYS 
LF K$="" TIIEN 9020 
IF HK$C>"O" AND RSCD"N* THEN PRINT"OUL OÙ NON": 
RETURN 


GOTO 9920 











a. 


| 








pharaonique 





antiquité binaire : 


la muliplication égyptienne 





Imaginez une société ne 
connaissant que la table 
de multiplication par 
deux. Peut-elle dans ces 
conditions effectuer le 
produit de deux nom- 
bres quelconques ? 
L'histoire de l'Egypte 
ancienne nous montre 
brillamment que ce pro- 
blème peut être résolu 
sans difficultés. 


Nous désirons donc multiplier le 
nombre X par le nombre Y (X et Y 
étant entiers). 

En partant de X (de rang n égal à 
1), il faut tout d'abord dresser une 
première colonne de nombres, tels 
que chacun d'eux soit égal à la par- 
tie entière du rapport Xn—1 /2. Pour 


— 
CL 


= 
= 
= 
SE 
= 
= 
=, 
A 


\ 


KW 


NN 





obtenir le 3° nombre X: on partira 
donc du deuxième X; et on aura 
X3 = INT (X:/2). Restant dans des 
multiplications de nombres entiers 
positifs il suffit de s'arrêter quand 
Xn vaut 1. 

Puis en partant de Y (de rang n 
égal à 1}, on dresse une deuxième 


(tr 
(ff 
Ts 


{ 


ON 
27 


4 
& 





4; 
& 


OA 


KQ 


MULTIPLICATEUR = 


345 


colonne de nombres, tels que cha- 
cun d'eux soit égal au double de ce- 
lui qui le précède. Pour des raisons 
de présentation, on affichera ou on 
imprimera sur la même ligne les 
nombres des deux colonnes ayant 
même rang. 


On peut maintenant effacer (sup- 
primer si on en tire une liste) les 
nombres de la deuxième colonne 
pour lesquels les nombres de même 
rang de la première colonne sont 
pairs. 


Il ne reste plus qu'à effectuer la 
somme des nombres restants de la 
deuxième colonne et alors, miracle, 
cette somme est égale au produit 
recherché. Aucune alchimie n'a 
présidé à l'obtention de ce résultat : 
pourquoi ne reprendriez vous pas 
vous-même la démonstration ma- 
thématique ? 


Adapter ce programme sur votre 
ordinateur préféré ne posera aucun 
problème, les ordres PRINT @ cor- 
respondant uniquement à une pré- 
sentation agréable sur l'écran. 
Quant à l'adapter pour déchiffrer 
les hiéroglyphes, c'est bien sûr une 
autre histoire... 


Didier Heroux 
SP 
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Première parution : L'Ol n° 27 


19 RE:f 
29 rer AUTEUR: 


Liste du programme 


* MULTIPLICATION DANS L'ANCIENNE HGYPTE * 
DIDIER HEROUX 


30 REA COPYRIGHT L'ORDIUATEUR INDIVIDUEL ET L'AUTEUR 
40 RE ALP ee ee ee RE EX 


190 
110 
129 
130 
140 
150 
160 
170 
130 
199 
200 
219 
220 
230 
240 
250 
260 
270 
280 
290 
300 
319 
320 
330 
340 
350 
360 
370 


380 
390 
400 
410 
429 
430 
440 


DIM X(1000), Y(1000) 
GOSUB 1000: RE: PRESENTATION 
CLS 
Y4=0 
PRINT" INTRODUCTION DES DONNES": 
INPUT" . MULTIPLICANDE = ";C: X(1)=C 
PRINT 
IF C<2 OR C>99999 TilEN GOSUB 1200: SOT9 120 
PRINT: PRINT 
INPUT “ -. MULTIPLICATEUR = ";D1 
IF D1<=1 THEN 199 
Y(1)=D1 
REM TEST POUR ULTIPLICATION TROP GRANDE 
IF CXD1>=1E+09 THEN GOSUB 1300: GOTI 150 
CLS 
PRINT 
PRINT@69,X(1):PRIATA84,Y(1); 
Y4=Y(1): ZZ=0: Z=0 
FOR 1=2 TO 1000 
KCI)=INT(X(T-1)/2) 
Y(I)=Y(1-1)#2 
PRINTOS+64%*1,X(L):PRINTI29+64#1,Y(L); 
Y4=Y4+Y(1) 
IF X(I)=1 THEN ZZ=1: 2=1: 
NEXT I 
IF ZZ=1 THEN I=2 
FOR J=1 TO I 
IF X(J)/2=INT(X(J)/2) THEN Y4=Y4-Y(J): 
PRINTA204#644J "soso se 


PRINT: PRINT: PRINT 


1=1900 


NEXT J 
PRINTÉ916, Y4; 

FOR T=1 TO 2000:NEXT T 
CLS 

PRINT: PRINT 
PRINT" 
PRINT" 


DES Z NOUS FAIRE UNE AUTRE ” 
OPERATION ?":PRINT: PRINT 


450 PRINT" 

469 GOSUB 9090 

470 IF R$="O" THE 120 
480 END 


1000 
1019 
1920 
19030 
1040 
1950 
1960 
1079 
1030 
1999 
1100 
1110 
1209 
1210 
1220 
1239 
1249 
1250 
1269 
1270 
1239 
1309 
13519 
1329 
1330 
1349 
1350 
1360 
1379 
1389 
9909 
9010 
9920 
3939 
9940 


S/P PRESENTATION INITIALE 


PRINT: PRIAT 

PRINT" 

PRINT: PRINT 

PRINT" 

PRINT: PRINT 

PRINT" 

PRINT: PRINT: PRINT 
FOR T=1 TO 3000: NEXT T 

RETURN 
LÉMemmmmmmmmmmemmnmenennanmnenasnemenmememmmmmenennmnnnmns nee 
REM S/P RESPECT DES BORNES 

CLS 

PRINT: PRINT 

PRINT" £ 
PRINT" 

PRINT" 

FOR T=1 TO 2000: 
RETURN 


LADA 
situ 


RÉM 
PRINT: . PRINT 

DRINT" < 
PRINT" 

PRINT 

PRINI" 

PRINT: PRINT 

RETURN 


[ra 


+ MULTIPLICATION" 
DANS" 


"ECYPTE ANCIENNE 


ATTENTION ! LE HMULTIPLICANDE" 
UOIT ETRE SUPERIEUR À 2 ET“ 
INFERIEUR A 99999" 

NEXT T 


[rmmmmmmmmssmnememmmmemmememmenmmemmemmmmnnnsemememmnmmennneenssemns 


S/P MESSASE D'ERREUR 


ATTENTION ! 
ÊTRE SUPER 


LE PRODUIT N£ DOIT PAS" 
UR À :” 


999 999 999" 


S/P SAISIE D'UN CARACTERE GAL À O(OUI) OÙ N(N9A) 


fnmmmmmmemmmememmmmmmnmmemeessmmemmnnnens 


JAPUT x$ 
IF R$O"O" AU 
RETURN 


R$C>"N" THEN 9920 
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1 3 A poreux Individuel 








cérébral 





à VOs postes 
pour la multiplication 


n'ayez plus peur des facteurs 





Le jeu constitue la meilleur facon d'appren- 
dre. Plutôt que de réciter en ânonnant 1 X 1 


1 X2 = 2... 


= 1, 


pourquoi ne pas rendre 


attrayant l'apprentissage de tables de multi- 
plication ? Ce petit programme s'y efforce : 
entraînez-vous au calcul mental. 


Attention ! Il n’est simple et fa- 
cile que dans la forme présente où 
les multiplications ne vont que jus- 
qu'à 9 X 9. Il suffit de changer 
cinq lignes pour traiter des multi- 
plications jusqu'à 20 X 20 ou 30 
X 30... mais avant ces développe- 
ments, quel est le principe du pro- 
gramme ? 


Il nous invite à jouer avec lui 
pour donner la bonne réponse à 
des multiplications qui deviennent 
de plus en plus compliquées au fur 
et à mesure que vous progressez. 
De plus en plus compliquées si 
vous avez répondu correctement, 
car si vous vous trompez, la sanc- 
tion est simple : une faute et vous 
restez au même niveau, deux 
fautes ou plus et vous connaissez 
la déchéance de devoir repartir à 
un niveau inférieur. Pour arriver à la 
fin du programme, il vous faudra 
donc arriver à donner trois bonnes 
réponses au niveau le plus élevé. 


Jusque-là rien de bien compli- 
qué, mais on peut corser un peu le 
jeu en considérant que vous ne 
disposez que d'un certain temps 
imparti pour donner la bonne ré- 
ponse. Si vous dépassez ce temps, 
le programme considère impitoya- 
blement que vous avez fait une 
faute : tout cela est bien arbitraire, 
me direz-vous. Oui, bien sûr, mais 
vous aurez quand même le choix 
de votre temps de réponse entre 5 
et 15 secondes. Et si 1 X 1 en 
15 secondes est simple, il n‘en est 


pas de même pour 17 X 18 en 
5 secondes, par exemple. 


Voilà donc les règles du jeu que 
vous devrez suivre. Pour parvenir à 
ce résultat, le programme est 
construit selon les principes de la 
programmation structurée : le pro- 
gramme principal (plage de numé- 
ros de lignes de 100 à 990) ap- 
pelle successivement un sous- 
programme de début {lignes 1 000 
à 1 990), un sous-programme 
principal (lignes 2 000 à 2 990) et 
un sous-programme de fin (lignes 
3 000 à 3 990). La variable A est 
l'indicateur de fin de traitement : 
tant qu'elle a pour valeur zéro, on 
exécute le traitement principal; 
quand elle prend la valeur 1, on va 
exécuter le traitement de fin et on 
arrête le programme. Cette varia- 
ble ne prendra la valeur 1 que 
lorsque le programme aura vu que 
vous avez donné trois bonnes ré- 
ponses. Le nombre de bonnes ré- 
ponses est mémorisé dans la va- 
riable P ou B au niveau le plus 
élevé. Cette dernière variable varie 
donc de 1, niveau le plus faible, à 
3, niveau le plus élevé, pour ne 
passer à 4 que lorsqu'il y a eu trois 
bonnes réponses au niveau 3. 


Le niveau de difficulté d'une 
multiplication est mémorisé dans 
le tableau D, tableau à deux di- 
mensions (multiplicande et multi- 
plicateur) : les valeurs du tableau 
sont donc 1, 2 ou 3. 

Chaque question est posée avec 


un multiplicande -— variable Y — et 
un multiplicateur - variable Z - 
choisis au hasard (variables X et 
C). La réponse que vous donnerez 
sera stockée dans la variable W. 


On mémorise dans le tableau E 
les résultats des multiplications 
précédemment posées, de façon à 
ne pas avoir trois multiplications 
ayant le même résultat lors d’une 
même série de questions. 


Le temps alloué pour la réponse 
est stocké dans la variable T | et 
contrôlé, à l'aide des variables U et 
V, valeurs de l'horloge interne 
avant et après la réponse. La varia- 
ble Q indique par la valeur 1 que le 
temps a été dépassé 

Si maintenant vous désirez ren- 
dre ce programme plus compliqué, 
posant par exemple des questions 
jusqu'à 20 X 20 ou 30 X 30ilne 
vous reste qu'à modifier : 

. les lignes de DATA - après 
10 000 : mettre pour chaque mul- 
tiplication, l'indication du niveau 
de difficultés de 1 à 3, 

. les lignes 1270 et 1290 : rem- 
placer 9 par 20 ou 30, 

. les lignes 2110 et 2140 : rem- 
placer 10 par 20 ou 30. 


Une autre facon d'utiliser ce 
programme consiste par exemple à 
s'en servir comme d'un répétiteur 
d'anglais ou d'allemand en mémo- 
risant en DATA ou dans un fichier 
les mots anglais ou allemands, et 
leur traduction en français puis en 
les choisissant de la même ma- 
nière au hasard. 


En attendant, bon courage avec 
les multiplications. Personnelle- 
ment arriver à résoudre 23 X 27 
en 5 secondes est un pari que je 
me garde bien de prendre. 


Jean-Pierre Brunerie 
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Première parution : L'OI n° 30 


Liste du programme sur PET 

















i % APPRENONS LES AULTIPLICATIONS * 2360 IF &=4 IHEN A=L:GOTO 2440 
HAUTEUR JEAN PLERRE BRUNERIS 2370 IF P=9 OR P=L THEN B=B-1 
COPY&IGUT L'ORDINATEUR INDIVLOUEL ET L'APTEUR 2380 IF B=9 THEN B=1 

AA AR A AR AR A ee ee kx 2390 PRINT 
190 20808 1100 2400 IF B=3 THEN PRINT'VOUS ETES FORT" 
110 IF A=1 L'LN 149 2410 HEN PRINT"VOUS ETES MOYEN" 
120 GOSUR 2900 2429 IF B=l THEN PRINT"'VOUS ETES NUL" 
130 GOr:) 119 2430 PRINT 
140 Sysuys 3000 2440 À 
159 EXD 3000 kE: 
PRO RROULELLLLLLLLLLLLECLUEETZEEEEEEEEEELELE SEE. SE... LL 3010 REA FIN OU CALVAIRE 
1910 RE: INITIALISATIONS 3029 PRINT 
1920 PRIW£L" BONJOUR" 3030 PRINT"DRAVO, VOUS ETES TRES FORT” 
1030 PRINT 3040 RETURN 
1040 GOSUB 4000 4000 RE! 
1050 PRINT 4010 RE: 
1060 PRINT'ETSS-VOUS FORT-E, MOYEN, NUL" 4920 PRINT' APPRENONS DONC LES MULTIPLICATIONS" 
1970 INPUT à&S 4030 PRINT 
1080 LE &$S="" Lit 1960 4080 PRINT" VOUS ETES SUPPOSE CTRE :" 





1099 17 KS$="F" LIEN 8#=3: GOLD 1130 4050 LETTRE F" 

1100 IF KS THEN B=2: JOTO 1130 4060 - LETTRE 4" 

1119 IF &S= LUEN Bel: GOT9 1130 4070 PRINT"- ! NUL "LETTRE N" 

1120 GOT) 1969 4080 PRINT'CECI AU DEBUT DU JEU" 

1130 PRIXT'ETES-VOUS RAPIDE=R, MOYEN, LENT=U" 4090 PRINT 

1140 INPUT 1 4100 PRINT'PUIS VOUS ETES SUPPOSE ETKE :" 
1150 IF R1S="" TIEN XL30 4110 PRINT"-— RAPIDE- LETIRE +" 

1160 IF KLS="R" SU0TO 1200 4120 iRINT"- MOYEN — LETIRE el” 







1170 IF R1S="M" 7? Gor9 1200 4130 PRINT"- LENT = LETIRE L" 












1180 IF R1S="L" TILEN T1=900: GOT 1209 4140 PRINT 

1190 GOT9 L130 4159 PRIAT"'A CHAQUE FOIS, ON VOUS PNSE" 

1200 INPUT"UN NOMBRE, SVP";C 4160 PRIND"TROIS MULTIPLICATIONS" 

1219 REH------ 4170 PRINT 

1220 FOR I=L TO C 4180 PRINT"TROIS BONNES REPONSES: VOUS PROGRESSEZ" 
1230 X=RNU(XHC) 4190 PRINT"DEUX: VOUS &E$ È HLVEAU" 
1240 4200 PRINI"ZERO OÙ UNE: VOUS REGR 

1250 4219 PRINT 

1260 REM-=---- 4229 PRINT'AVEZ-VOUS BIEN COMPRISE 

1270 FOR I=1 T9 9 4239 GOSUs 9000 

1290 REM--- 4240 IF KS="9" THEN 4290 

1290 FOR J=1 TO 9 4250 PRINT 

1300 READ D(I,J) 4260 PRINT'ALORS AËLISEZ ATLENTIVE! 

1310 NEXT J 4270 PRINT 

1320 REM=-- 4289 :G0T9 4000 

1330:HEXT L 4299 PRENT"" 

1340 RE 4300 RETURN 

1350 ! 9000 REM==------------- mm ++ 
2000 9010 REA TEST SUX LA REPONSE 

2010 CUT LION LE LA MULTIPLICATION 2020 HUE à$ 

2020 REM=—---— 9030 IF k$S<>"0" AND R$CD"N" THEN 9929 

2030 FOR I=1 TO 3 9049 Eds 

2040 E(I)=0 9950 RM mm 
2050 NEXT L 19009 VATA L,1/1,1,1,1,1,1,1 

2060 REH====-— 10919 DATA L,1,1,1,1,1,2,2,2 

2070 P=0 10020 DATA 1,1,1,2,1,2,3,2,3 

2080 REH===--= 19939 DATA 1,1,2,2,1,2,3,2,3 

2090 FOR I=1 TO 3 10940 DATA L,1,1,1,1,1,2,2,2 

2100 X=RND(XHC) 1005) DATA L,1,2,2,1,2,3,3,9 

2110 Y=[NT(X#10) 1096) DATA 1,2,3,3,2,3,3,3,3 

2120 IF Y=0 THEM 2190 19979 DATA 1,2,2,2,2,3,3,3,3 

2130 X=RND(X+0) 10980: DATA 1,2,3,3,2,3,3,3,3 


2140 Z=INT(X*10) 
2150 IF Z=0 THEN 2130 
2160 LF D(Y,2)=B T'IEN 2190 


2170 PRINT'PATIENCE" Pre cop Some 
2130 GOTO 2190 à 


ae GA MoN VIEUX --- CEST 


2200 IF'I=l TUEN 2240 ‘ 
2210 LF I=2 THEN 2230 LA Loi DU PROGRES-.. Y 


2220 If É(I)=ECI-2) THEN 2190 

2230 IF E(I)=E(I-1) TAEd 2100 

2240 PRINT Y; "MULTIPLIE PAR"323 "EGAL" 

2250 Q=0 

2260 U=TI 

2270 INPUT 0 
2280 VaTI 

2299 IF V=UDTL THEN PRINT'QUE C'EST. LENT" :Q=1 
2300 IF E(I)=# TUEN P=P+1 :PKINT"EXACT":GOTO 2320 
2319, PRINT'FAUX."3;Y;" FOIS "3:23 "EGAL";E(L) 

2320 IF Q=1 AND E(I)=4 TIEN P=P-1 

2330 NEXT [I 

2340 R£: 
2350 IF P=3 T:IEN B=B+1l 
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olles 








testez Vos connaissances 


en géographie 





Arras. Chef-lieu ? Pas-de-Calais. Cette façon 
d'apprendre la géographie se pratiquait, il y a 
—…._ maintenant de nombreuses années, pour le cer- 
tificat d'études primaires. Apprendre en jouant, 
«et de plus sur un ordinateur (ZX-81 en l'occur- 
rence) ne procure-t-il pas plus de plaisir ? 











Pour un enfant, pouvoir agir sur 
une image représentée sur un 
écran de télévision est très stimu- 
lant. Le passage d'une informa- 
tion se fait très simplement, en 
douceur, au propre rythme de 
celui qui interagit avec le pro- 
gramme présent dans l'ordina- 
teur. 


Le programme que nous vous 
proposons teste la connaissance 
de la situation de villes sur la carte 
de France. Cette carte se dessine 
sur l'écran et un texte défile expli- 
quant le jeu. Un plot clignote à 
l'emplacement d'une ville et deux 
noms numérotés s'inscrivent. 


Transportez-vous sur 
votre ZX-81, en Ethiopie, 
au Kenya, en Arabie 


L'ordinateur demande alors la 
réponse, la contrôle et donne son 
verdict : « correct » ou « faux », 
puis affiche le score. En cas de 
mauvaise réponse, le nom de la 
ville s'inscrit. 


A la fin du jeu, soit après vingt 
questions, l'ordinateur commente 
le score et invite à rejouer. 


S'il peut paraître évident que 
Bastia ne se trouve pas en Breta- 
gne, situer Tours par rapport au 
Mans peut être plus difficile. De 
plus, vous pouvez aisément modi- 
fier le programme et ajouter des 
noms de villes moins connues à la 
liste, pour accroître la difficulté. 
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Première parution : L'OI n° 48 


Programme de géographie (début) 











RENM GECGRAPHIE:LAR FRANCE 
S RENM IC\RENE LAGACHE 


IAA PRINT TAB 12: CHRS 6; CHR$ S;: 


1S REM = —— 

Bù PAINT TRE 11; CHR$ 133; TAB 1 
d; CHRS 134; CHRS$ 4 

2S REM = 

38 PRINT TAB 11:CHR$ 135; TAB 1 
S:CHRS 194; CHRS 15 


mm mm me me mn em mm mm me me + 


RE 
da PRINT TAB 6 


; CHARS 138; CHR$ 1 

32; TAB 9; CHRS 12S; CHARS 3; CHRS$ 1; 
TAB LIZLCARS 1AS4; CHARS 181 

LASVREME = 

SR PAINT TAB 6; CHR 2; CHRS$ 6; € 
HRS GS; CHRS 131; CHARS 1; TAB 19; CHAR 
5 S;:CHRS 134; CHARS à 

SS REM = 

ER PRINT TAR 2; CHRS 191; CHRS& 1 
G1;, CHARS EG; CHARS 131; CHRS 131; CHRS& 
S;TAR 21, CHR 128 

SSNREMEE TS D RER SE - 

7@ PRINT TRE 2; CHAR 129;TAB 21 
CHR% 135 


SR PRINT TAB 2; CHARS 2; CHRS 3; C 
| HRS$ 121; TAB 21; CHRS$ S 
DSi REM en MS 
aa ASE ins son 134; CHRS 4 


HR 123S; CHRS 1 


PRINT TAER 6; CHR%S 134; CHR& 4 
BAC OURS 134 


: CHR$ 2; CHRS 184" 


14ù FRINT TRE 7; CHARS 6, CHR$& d;T 
RB 20; CHRS$ 13S; CHRS 1 

LES ME ne or — MS LE si UE EL 

15Q PRINT TOR 7: CHRS$S S;:CHRS#& 1:7T 
AB 20; CHR$S 1284 

15S RE 

16@ PRINT TA8 
HRS_ 138; TRB 24; é 

LOS DEN Sn Le. 

17@ PRINT TAB CH ; j 
HR $ veR? ui 23; CHR 

17S REM == 

1ea PRINT TAR 
: TAB 21; CHRS 6; 
$. 133 

18S REM = 

198 FRINT TAR ; 


GJ 04 
LUS T°: 
pole 


10 
L°: 
œr 


HR S$ 134; CHARS 1 
AG 19,CHR% 2; 7T : 
295 REM = ————————— — — 
218 PRINT TAB 18; CH 
CHRS% er CHRS 131, CH 


sa PRINT AT 1.8; ‘OCR TA 
R 22; "GEOGRAPHIE"; TAB 22; “"====2== 


1602 PRINT AT 2ei,2%; ‘APPUYER SUR 

UNE TOUCHE‘ 

10RS IF ENKEY $="" THEN GOTO 100€ 
101 LET ASG=THRAXXEXHERLEEEEXXEEE EE 
EXXHE EEE EEE EX € SRONMJOQUR & XX X E À E £ + 
KREXKKXEXXNKEXXX XX XUOICI LA CARTE D 
E. FRANCE LUN POINT MA CLIGNOTER S 
ÜUR L ECRAN ET 2 MOHS DE UILLES VU 
ONT APPRRARITRE EN ARS DE L IMAGE 
AUEC CHACUN LIN NUMERQ,REPONDEZ 

PAR LE NUMERO CHOISI ET L ORDINA 
TELIR CONTROLERR VOTRE REPONSE, .. 
nessss.se ATTENTION,ETES-VQOUS PRE 
(D ANR ER Tr ANNE TA le Sa R 

1015 FOR N=l TO LEN A$-3 

108@Q PRINT AT 21,0; AN To N+3S2L; 
1@2S5 FOR F=il TQ 2 

193Q WNEXT P 

LARS NEXT N 

1606R ENFUT 


D3 
4H 
A) 





















ZS$ 
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GEOGRAPHIE 





Vous pouvez aussi imaginer de 
transposer le programme pour un 
autre pays, Etats-Unis, Kenya, 
Ethiopie., pour le plus grand 
plaisir des aventureux.…. 


Vous constaterez peut-être 
alors que le score réalisé par un 
adulte sera bien différent du score 
qu'il aura obtenu avec la carte de 
France ! 


Utilisez la mémoire 
visuelle de 
vos enfants 


Les lignes 10 à 210 permettent 
de dessiner le contour de la 
France. Chaque ligne de PRINT 
correspond à l'impression d'une 
des vingt et une lignes de l'écran, 
afin de diminuer les risques de 
mauvaise interprétation des ca- 
ractères à imprimer. Cependant, 
disposant de la liste, vous pou- 
vez, au lieu d'écrire par exemple 
$3, mettre son équivalent graphi- 
que, c'est-à-dire ‘ ls ‘”, ce qui 
accélèrera l'affichage et dimi- 
nuera l'encombrement en mé- 
moire. De même, vous pouvez 
supprimer les REM qui ne sont là 
que pour augmenter la lisibilité du 
programme. 


La ligne 500 donne le titre du 
jeu et les lignes 1000 à 1005 
invitent à jouer. Quant aux lignes 
1010 à 1035, elles initialisent 
dans la variable A$ la présenta- 
tion du jeu et font défiler, sur la 
ligne 21, ce texte de droite à gau- 
che en s'arrêtant sur la question 
« êtes-vous prêts ? » (oui/non). 
La boule P règle ce défilement. 


Aux lignes 1060 à 1071, la 
question est posée et contrôlée. 


Les lignes 1075 à 1235 défi- 
nissent le dimensionnement d'un 
tableau F$, dont chaque élément 
contiendra le nom d'une ville. 
L'originalité est la présence, dans 
les quatre premiers caractères du 
groupe, des deux numéros 
de deux chiffres correspondant 








“ON 





le, voreEint = 


ie D de RE es EEE 


GEDSROPnRE 







4 -UANNES 





26-POITIERS 


à la position du plot de la ville. 


La ligne 1245 initialise le score 
S et la ligne 1250 demande la 
boucle N pour vingt questions. 


Puis les lignes 1255 à 1280 
calculent le numéro de deux villes, 
les coordonnées x et y de la pre- 
mière et la positionnent sur la 
carte. 


Les lignes 1282 à 1287 don- 
nent l'ordre d'écriture du nom de 
la ville, 


Aux lignes 1290 à 1305, la 
boucle P fait clignoter le plot. 


Les lignes 1310 à 1335 de- 
mandent la réponse, la contrôlent 
et affichent « faux » ou « correct », 
puis les lignes 1340 à 1345 cal- 
culent et affichent le score. 


Dans le cas d'une mauvaise ré- 
ponse, le ligne 1360 donne la 
bonne. Les lignes 1372 à 1375 
effacent le plot et autorisent le 
retour à la ligne 1250. 


Les lignes ‘1380 à 1390 don- 
nent un commentaire sur le score, 
puis les lignes 1405 à 1420 invi- 
tent à redémarrer le jeu. 


Remarques : les boucles P 
(lignes 1350-1355, 1365-1370 
et 1395-1400) déterminent le 
temps de pause. 


Le nombre de villes est ici de 
trente-deux, mais il est possible 
d'avoir plus de noms, en n'ou- 
bliant pas de modifier la valeur 
trente-deux des lignes 1075, 
1255 et 1260, et en déplaçant le 
reste du programme. 


Développer les connaissances 
de vos enfants en utilisant au 
mieux leur mémoire visuelle, tout 
en leur permettant une interac- 
tion, est une grande voie de l'in- 
formatique qui se développera in- 
tensivement dans les années à 
venir. Et pourquoi pas pour vous ? 


René Lagache 








PR Bphphhpbh bb Abhh 


[A] MO GO Q 00 - 2 40 01 0 HO A 0 LU D NN CDI ONU Le 


Programme de géographie (fin) 


IF Z$(1}="0" THEN GOTO 10 
] IF _Z$i1:="N" THEN GOTO 10 
18971 SOTO 1050 








7S 
10 





107S DIM F#(32,1S) 

1088 LET F$(1) ="2623PARIS" 
108S LET F$(2) ="223SROUEN" 
1098 LET F$13) ="27399RRAS" 
1895 LET F$(4) ="1388QRENNES" 
1100 LET F$(5) ="I42SNANTES " 
1195 LET F$(6) ="1713B0RDEAUX" 
111@ LET F$(7) =“3387TOULOUSE" 
1115 LET F$t8) ="GS31B8REST 
1120 LET F$(9) ="2417LYON" 

1125 LET F$(10) ="3707MARSEILLE" 
113@ LET F$(11) ="4109NICE" 
1135 LET F$(12) ="SS26BESNNCON" 
1140 LEFT F$1193) ="#2925TRASBOURG * 
114S LET F$(14) ="1S906TARBES" 
1150 LET F$(15) ="3114LE PUY‘ 
1155 LET F$(16) =“242580URGES" 
1168 LET F$(17) ="19277QURS" 
1165 LET F#$(18) ="2036LE HAURE"“ 
1178 LEFT F$(19) ="2717CHAMBERY 
1175 LET F$(2@) ="1928LE MANS‘ 
1188 LET F$i21) ="342SDIJON" 
1185 LET F$i22) ="31S84REIMS" 
1190 LET F$(29)="3794METZ" 
1195 LET F$i24) ="1028U9NNES" 
1808 LET F$(25) ="1619LA ROCHELLE 
12@S LET F$(26) ="1922POITIERS" 
1218 LEFT F$(27) ="2831NANCY" 
1215 LET F$(28) ="1726NNGERS" 
1228 LET F$(2û1-="2RR1CHARTRES" 
1225 LET F$(30) ="2318LIMOGES" 
123 LET F$(31) ="47@88AUJACCIO" 
1235 LET F$(32) ="4814BASTIA" 
1345 LET S-@ 

185ù FOR N=1 TO 2ù 

1855 LET V=INT (RND4n2) +1 

1360 LET_T=INT (RND432) + 





12565 IF T=VU THEN GOTO 12 
127@ LET X=UAL F#$tW,1 TQ 
12?7S LET Y=UAL F% tu, 3 TO 
1288  PLOT X,Y 

PRINT AT 21,0;" 


LET H=INT (RND&2) +1 
IF _H=1 THEN G0TO 1887 
PRINT AT 21, SPLU NTFS CU,S 
Tite"; FSCT,S TO 

GOTQO 12908 

PRINT AT 21, pra "_"FSUT,S 







a 
» 


,24; “REPONSET?" 
INPUT Z$ 


1F CODÉ ABS OR CODE Z$%>37 
N GOTQ 131 

LET _Z=YAL © zs 

IF Z<>U THEN PRINT AT 5,24; 


x 
DIE Z=V THEN PRINT AT 5,24;° 
ÊE 


CF 
IF Z=U THEN LET S=5S+1 
À Parér nf 6,2S; ‘‘'SCORE: 
+ 
@ FOR P=1 TO 1a 
S NEXT P 
DIF, Z<ov BEN, RER AT 2 
ONSE JUSTE:*“; 4; 1F#{U, 


FOR Pz=1 TQ 2 
NEXT P 

UNPLOT X,Y 

PRINT AT S,24,;" à 
NEXT N 

IF S<S THEN FRINT AT 21,0; " 
EST PAS TRES BON ,REUISEZ 


8S IF S>8& AND S<1S THEN PRINT 
AT 21,0; "C EST UN SCORE MOYEN 


139Q IF S>1S5S AND S<2Q THEN tal Al 
AT 21,@;'"C EST UN BON SCOR 


13Q9S FOR P=1 TO Sa 

1408 MNEXT P 

140S PRINT AT 21,8; "APPUYEZ SUR 
UNE TOUCHE SUR 

1418 IF INKEY $="" THEN GOTO 1419 
141S CLS 
1429 RUN 





tl 


NOUS SASNSNS- JA NON 
T 
pa 
H 
Z 
=] 
NT 
= 


"“;: AT 5 


hbB: RH 
MOUIO UE À ACEU CN TIU EE GG UG %Q oo 


1 
5 


De el mi md 
(DENT EN ENT 0 
ZOn0Nsun D 





re 
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vos chèques s'entrechoquent ? 


il faut les 


contrôler 








Vous est-il déjà arrivé de vous lancer dans l'ad- 


dition de, mettons, 


500 chèques ? A votre 


gauche, les 500 chèques, au milieu une feuille de 
papier et un stylo, à votre droite, votre fidèle cal- 
cultrice de poche. Vous êtes calme, frais, dispos, 
et vous commencez à entrer vos premiers chif- 
fres au clavier de la calculatrice. Ah ! Déjà une 
faute de frappe, bien ! Touche de correction d'er- 


reur et l'on repart. À moins que... 


à moins que 


l'on ait tout effacé, auquel cas il faut repartir au 


premier chèque... 


S'il vous reste quelques cheveux, c'est que 
vous n'avez pas souvent tenté cette expérience. 
L'essayer, c'est certainement ne pas l'adopter. 
De façon à vous aider à conserver votre crinière, 
voici la liste d’un programme BASIC, écrit à l'ori- 
gine sur un TRS-80, programme qui vous aidera 
à surmonter plus facilement ces problèmes. 


n° 20 


Le programme vous permettra de 
5 saisir un ensemble de chèques, ar- 
> bitrairement limité à 1500, dimen- 
S$ Sion du tableau T qui les contient. 


{l 


ère parution 


Ces chèques pourront être impri- 
3: més en partie ou globalement et on 
É pourra obtenir le total de tous les 
à chèques entrés ou un sous-total 


(1: 
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quelconque entre deux limites choi- 
sies par l'opérateur. 


Le problème des fautes de frappe 
est résolu de deux manières diffé- 
rentes : on teste la numéricité des 
zones qui doivent être numériques, 
ce qui permet de n'obtenir que des 
montants plausibles. Et si par mal- 


chance un montant se révèle faux 
lorsqu'on le visualise, il est possible 
de le modifier et de leremplacer par 
la valeur désirée. 


La présentation se fait par pages 
numérotées (variable PA) entre une 
première ligne (PL) et une dernière 
ligne (DL) données. 


LT est la dernière ligne entrée 
dans le tableau, ZS$ la variable d'en- 
trée des montants et des choix d'ai- 
guillage du programme, TL repré- 
sente le totai des chèques entrés à 
un moment donné. Les autres varia- 
bles sont soit évidentes, soit de sim- 
ples variables de passage utilisées 
ponctuellement. 


Le programme présenté est très 
simple et, dans sa forme actuelle, 
ce n'est après tout qu'une « grosse » 
calculatrice. Il ne vous reste donc 
plus qu'à le développer en rajoutant 
par exemple une mémorisation sur 
fichier, puis la saisie de diverses 
zones comme le numéro du chèque, 
la date d'émission, la date de retrait, 
un code indiquant s'il a été ou non 
listé sur votre extrait de compte, 
tous ces petits détails qui le ren- 
dront propre à satisfaire exacte- 
ment votre problème. 


Jean-Pierre Madelt 
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L'amortissement fait partie du vocabulaire 
couramment utilisé par la plupart des entrepri- 
ses.« Les mesures fiscales pour favoriser l'in- 
vestissement » ne sont rien d'autre que des 
lois qui assouplissent ou restreignent les pro- 
cédures d'amortissement. Alors que vous pré- 
fériez l'amortissement linéaire ou l'amortisse- 
ment dégressif, pourquoi ne pas utiliser le petit 


programme Apple que nous vous présentons. 


La notion d'amortissement est 
intimement liée à celle d'investis- 
sement. Pourtant, dans la vie de 
tous les jours, nous pensons beau- 
coup aux investissements que 
nous aimerions faire — nouvelle 
voiture, appartement, meubles, 
etc. — et assez peu aux amortisse- 
ments. 


Bien sûr, s'il vous arrive de cal- 
culer le prix de revient de votre 
voiture par mois ou par kilomètre, 
vous y incluez sans doute une ru- 
brique que vous appelez pompeu- 
sement « amortissement », à 
moins que vous ne préfériez 
« usure » ou « dépréciation de la 
voiture ». La signification que vous 
donnez à ces mots n'est peut-pas 

= très précise, mais vous sentez que 
+ l'argent avec lequel vous avez 
5 payé cette voiture n'a pas été tota- 
= lement « dépensé » le jour où vous 
$ avez fait le chèque. Cette grosse 
$ dépense, cet investissement doit 
à être étalé sur une certaine durée. 
C'est d'ailleurs ce que nous faisons 
tous quand nous achetons à crédit, 
et même quand nous mettons de 
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l'argent de côté en prévision d'un 
achat. 


Mais c'est dans les entreprises 
que l'utilisation des amortisse- 
ments a trouvé son terrain d'élec- 
tion, tout simplement parce qu'el- 
les tiennent une comptabilité 
précise selon un schéma figé. 
Pourquoi et comment est établie 
cette comptabilité, c'est ce que 
nous allons voir ensemble. 


On peut faire ses comptes de 
multiples façons, qui toutes se ra- 
mènent à deux possibilités. Dans la 
première, vous mettez dans une 
colonne ce que vous gagnez, pen- 
dant une certaine période, dans 
l'autre vos dépenses pendant la 
même période. La différence entre 
les deux colonnes est un déficit 
que vous devrez puiser dans vos 
réserves où un excédent que vous 
pouvez mettre de côté —- à moins 
que vous ne préfériez vous offrir 
quelque chose qui vous fait envie. 


L'autre possibilité est de mettre 
d'un côté ce que vous possédez, 
de l'autre ce que vous devez. La 
différence entre les deux vous 


donne la valeur de votre patri- 
moine à un moment donné, qui 
peut être positif ou négatif. 


Pour le commun des mortels, la 
première méthode est pratique- 
ment la seule utilisée, car nous 
vivons au jour le jour avec des 
besoins limités en matière de pré- 
vision et de précision. La grande 
question est en général : « Est-ce 
que je peux me permettre de... ? » 
et nous ne cherchons pas toujours 
à ce que la réponse soit fondée 
uniquement sur des arguments ra- 
tionels. ‘ 


L'entreprise, par contre, utilise 
en même temps ces deux types de 
comptes, dans un ensemble qui 
porte le nom de comptabilité géné- 
rale. 


Tous les ans, l'entreprise établit 
son Bilan, qui est une photogra- 
phie du patrimoine de l'entreprise. 
Dans la colonne de gauche figurent 
les Actifs, c'est-à-dire ce que l'en- 
treprise possède, en particulier les 
Immobilisations qui correspondent 
aux investissements de l'entre- 
prise), les créances et les liquidi- 
tés. Rappelons qu'une créance est 
le contraire d'une dette : c'est la 
marque que quelqu'un vous doit 
de l'argent. 


Dans la colonne de droite, le 
Passif, on trouve le Capital et les 
Réserves, les Dettes et le Résultat 
ou Bénéfice (s'il y en a). C'est un 
assemblage un peu étrange, car on 
ne voit pas spontanément de rap- 
port entre le capital et les dettes 
d'une entreprise. || y a pourtant 





AMORTISSEMENTS 
LINEAIRE ET DEGRESSIF 
AUTEUR: G. BOUTELOUP 
D'APRES L. SCHMITTE 
COPYRIGHT L'ORDINATEUR INDIVIDUEL 
ET LES AUTEURS 
LIL RRELSL EEE EEE SEE ETES TETE TELLE SET ELLE ELLES ELLE LLELELLELEE 
REM ARRONDI AVEC 2 CHIFFRES APRES 
REM LA VIRGULE 
DEF FM F2CX) = INT (100 # X + .5) / 100 
REN NOMBRE DE DECIMALES 
DEF FN NDCXD m LEN C STRS (X2) = LEN € SIR$ € INT (X2)) - 1 
REM mmnnnnnt anne t222s2222t2 2222 aMM MMM ANT ETES EEETSSS 
REM 
REM ENTREE DES DONNEES 
HOME 


PRINT ; PRINT “DATE D'ACHAT" 

INPUT JOUR :"5J 

IF) <10RJ > 31 08 3 < > INT (J) THEN ER = 1: GOSU8 10000: GOTO 260 
INPUT * MOIS :";:M 

IFM<TORM> 12 0R M< > INT (M) THEN ER = 2: GOSU8 10000: GOTO 260 
INPUT ‘ANNEE :";A 

IF A <O OR À < > INT (A) THEN ER = 3: GOSUB 10000: GOTO 280 

A® A 100 * INT CA / 100) 

PRINT : INPUT “VALEUR D'ACHAT :";VA 

IF VA< =O0OR FN No(VA) > 2 THEN ER = 4: GOSUS 10000: GOTO 310 

PRINT : PRINT "OUREE D'ANORTISSEMENT” 

INPUT ! EN ANNEES :";D 

IFD< =0O0RD< > INT (2 + D) / 2 THEN ER = 5: GOSUB 10000: GOTO 330 
REN nmbnnanansnnmtes222 222222222222 2n2n2a22ess 

REN 

REN PERIODE D'AMORTISSEMENT 

REM POUR LE PREMIER EXERCICE 

NJ = 590 - j - 30 + 

1FJ= THEN MNJ = NJ + 1 
CILIÉCERPECERPEREEEECSEEEPECEREPPCCPERENPERERPERERCRENREN 

REM 

REM CHOIX MODE D'AMORTISSEMENT 

PRINT : PRINT "CHOISISSEZ MODE D'AMORTISSEMENT" 

INPUT “ LINEAIRE (L) OU DEGRESSIF (D) “;0$ 





1F Q$ = "" THEN Q$ = "L* 
Q$ = LEFT$ (Q$,1) 
1F Q$ < > "L" AND Q$ € > "D" THEN ER = 6: GOSUS 10000: GOTO 520 
TC = FN F2(100 / 9) 
HOME 
PRINT ''TABLEAU D'AMORTISSEMENT "; 
1F Q$ = "L" THEN PRINT "LINEAIRE" 
1F 0% = "D" THEN (PRINT "DEGRESSIF" 
PRINT : PRINT “TAUX D'AMORT CONSTANT :":7TC 
TD =) FM 201,5 « TC) 
1F D > 4 THEN 10 = 2 + TC 
1F D > 6 THEN T0 = FN F2(2,5 * TC) 
1F Q$ = "D" THEN PRINT : PRINT “TAUX D'AMORT DEGRESSIF :";TD 
PRINT : PRINT : PRINT : INPUT "POUR OBTENIR LE TABLEAU, TAPER RETURN"; AS 
GOSUB 4000 
690 AC = A:VB = VA:VC = VA:OR = D 
700 1F 0$ = D" THEN 2000 
900 REM ========2; =ansssennsrssesssemsssesesssssss aussssssessss 
1000 REA 
1010 REM ANORTISSEMENT LINEALRE 
1100 T = FN F2CNJ / 360 * TC) 
1110 AM = FN F2{VB * T / 100) 
1120 IF AM< 2 VC THEM 1150 
1130 Am = vec 
1140 T = FN F2CAM / VB * 100) 
1150 VC = FM F2{VC - Am) 
1160 Gosu8 5000 
9170 IF VC = O THEN 3000 
1180 AC = AC + 1: IF AC = 100 THEN AC = 0 
1190 NL = NL + 1: IF NL = 7 THEN GOSUB 6000 
1200 NJ = 360 
1210 Goro 1100 
1900 REN = sassssessssssssssressssesssssssssssssesss 
2000 RENM 
2010 REM AMORTISSEMENT DEGRESSIF 
2100 T1 = FN F2(NJ / 360 « TD) 
2110 T2 = FN F2(NJ / 360 « 100 / DR) 
2120 A1 = FN F2(V8 # T1 / 100) 
2130 A2 = FN F2(VB * T2 / 100) 
2140 AM = AT:T = T1 
2150 JF A2 > A1 THEN AM = A2:T = FN F2CAM / VB * 100) 
2160 IF AM< = VC THEN 2190 
2170 AN = VC 
2180 T = FN F2CAN / VB * 100) 
2190 VC = FN F2VC - AM) 
2200 60su8 5000 
2210 1F VC = O THEN 3000 
2220 AC = AC + 1: IF AC = 100 TMEN AC = 0 
2230 NL = NL + 1: IF NL = 7 THEN GOSUB 6000 
2240 VB = VC:DR = OR + MJ / 360:NJ = 360 
2250 GOTO 2100 
2900 REN mamnnnnennmnannnn22s22n222222n220S 00m nn sen 
3000 REA 
3010 AEM FIN DU PROGRAMME 
3100 INPUT VOULEZ-VOUS UN AUTRE TABLEAU? (0/M)";A8 
3110 A$ = LEFTS (A$,1) 
3120 IF AS = MN" THEN 3500 
3130 1F AS < > “O" THEN 3100 
3140 INPUT "AVEC LES MEMES DONNEES? (O/N)";AS 
3150 AS = LEFTS CA$,1) 
60 1F AS = “N" THEN 200 
IF AS < > "O" THEN 3140 
MOME : GOTO 400 
END 
CTTACLELELLECEEC CELL LEE EL EEE ELEC EEE ELEC TELE EE EE 
REN 
REX EM-TETE 
HOME 
4110 LS = "msnznezsnassesssssssssassesssszs=ssss=ssz"t 
4120 PRINT LS; 
4130 PAINT “IAN! BASE ! TAUX ! AMORT ! VAL CBLE !" 
4140 PRINT LS; 
4150 NL = 0 
4160 RETURN 
4900 REM senmnaneemmmnensnanmmnaammmmemammeémnémementannéna da 
5000 REM 
5010 REM ECRITURE 
5100 LS = 
PRINT LS; 
PRINT "!">AC; "I"; TABC 6);VB; TABC 14);"1"; TABC 16):T; 
PRINT TABC 21);"l";AM; TABC 2923" 1"; TABC 31)3VC; TABC 39);"i" 
PRINT LS; 
RETURN 
CLÉ ECECLEEEC EEE PE PEEEEENEENENNNNENNENNENRENNENENEES 
REN 5 
REM NOUVELLE PAGE 
INPUT "POUR LA SUITE, TAPEZ RETURN";AS 
6osue 4000 
RETURN 
REM nasenemnenmnnanneennennnannnnta attenante 


M 
REM TRAITEMENT ERREURS SAISIE 
INVERSE : PRINT "ERREUR :";: NORMAL 
LF ER = 1 THEN PRINT “ JOUR INVALIDE" 
LF ER = 2 THEN PRINT " MOIS INVALIDE" 
IF ER = 3 THEN PRINT “ ANNEE INVALIDE" 
IF ER = 4 THEN PRINT “ VALEUR INVALIDE" 
LF ER = S THEN PRINT " OUREE INVALIDE" 
LF ER = 6 THEN PRINT CHOISISSEZ L OÙ D" 
RETURN 


REM sonanesssnnrennnennennennannnsenanenneheneenenmennnnete 





deux points communs. Le capital 
est en quelque sorte une dette 
envers les actionnaires qui ont in- 
vesti dans l'entreprise, et qu'ils 
doivent récupérer à la dissolution 
de celle-ci (voir tableau 1). 


Cette façon de voir est un peu 
artificielle, mais le second point 
commun est beaucoup plus fort. 
En effet capital et dettes corres- 
pondent à de l'argent qui est entré 
dans l'entreprise. Cet argent a pu 
servir à acheter des machines ou à 
renflouer la trésorerie, donc à créer 
des sommes qui figurent à l'Actif 
du Bilan. De cette façon, capital et 
dettes jouent le même rôle dans le 
système comptable. Quant aux ré- 
serves, c'est essentiellement ce 
qui reste des bénéfices des années 
précédentes après distribution des 
dividendes et paiement des 
impôts. 


Ne vivez plus 
au jour 
le jour 


Entre deux bilans s'écoule une 
période, généralement d'un an, 
que l’on appelle Exercice Compta- 
ble. Pendant cette période, l'entre- 
prise travaille avec le Compte 
d'Exploitation (ou Compte de Ré- 
sultats), qui est vide en début 
d'exercice, et se nourrit peu à peu 
de charges et de produits. 


Les produits et les charges sont 
des avatars assez sophistiqués des 
colonnes de tout à l'heure : je 
gagne - je dépense. On y trouve en 
particulier les Amortissements 
dont nous allons reparler. La diffé- 
rence entre les produits et les 
charges est le Bénéfice, qui se 
trouve être le même que celui qui 
figurera au Bilan en fin d'exercice. 


Tout ce système est très rigide 
car il intéresse énormément, des 
personnes extérieures à l'entre- 
prise. Pour des raisons juridiques, il 
faut savoir qui doit quoi à qui, et 
qui possède quoi ; c'est pour cela 
que le bilan annuel est un docu- 
ment public. 


Mais surtout le fisc regarde tou- 
jours de très près comment est 
calculé le bénéfice, puisqu'il tient à 
en toucher la moitié au titre de 
l'impôt direct sur les sociétés. Et 
dites-vous bien que votre feuille de 
déclaration de revenus est une pe- 
tite plaisanterie à côté de ce 
qu'une entreprise doit fournir à 
l'administration fiscale pour le cal- 
cul de ses impôts ! 
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BILANFIN80. 


BILAN FIN 81 
ACTIF PASSIF 


CE 81 


CHARGES 


PRODUITS 





Tableau 1 


Jusqu'ici il n'y a pas vraiment de 
problème : le bénéfice ést la diffé- 
rence entre les produits et les 
charges de l'exercice, et l'Etat en 
prend la moitié ! 


Mais si vous achetez une ma- 
chine qui va vous durer 5 ans, les 
ennuis commencent. Si cet achat 
était tout de suite considéré 
comme une charge, l'exercice se- 
rait sans doute déficitaire, ce qui 
fait toujours mauvais effet, et le 
fisc ne toucherait rien et ne serait 
pas content. Les années suivantes, 
le bénéfice serait important puis- 
que la machine serait utilisée sans 
rien coûter apparemment. À moins 
d'acheter une nouvelle machine. 


Dans cette situation où les ré- 
sultats jouent aux montagnes 
russes et où les entreprises sont 
invitées à se suréquiper pour ne 
pas payer d'impôts, il serait très 
difficile d'apprécier la santé d'une 
entreprise. 


C'est ici que les amortissements 
entrent en scène : ils permettent 
d'amortir le choc d'un investisse- 
ment en diluant ses effets sur plu- 
sieurs années. 


L'idée est très simple : l'achat 
d'une machine n'est pas une 
charge. Par exemple, si elle est 
payée au comptant, les liquidités 
vont diminuer et les immobilisa- 
tions vont augmenter du même 
montant : aucune influence sur le 
bénéfice. Par contre, à la fin de 
chaque exercice, la valeur de la 
machine (sa valeur « comptable ») 
sera diminuée d'un certain mon- 
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tant, l'amortissement, qui figure, 
lui, en charge et donc diminue le 
bénéfice. Au bout de quelques 
exercices, la valeur comptable de 
la machine sera nulle et elle aura 
été complètement amortie. 


Vous imaginez sans peine que la 
façon dont sont calculés les amor- 
tissements a une grosse influence 
sur les bénéfices, donc sur les 


Amortissement linéaire sur six ans 


Marge 
35 000 


35 000 
35 000 


20 000 
20 000 
20 000 


35 000 
210 000 


20 000 
120 000 


Amortissement linéaire sur trois ans 


Amortissement 


40 000 
40 000. 
40 Pre 


0 
(eo) 


120 000 


; 
2 
3 
4 
5 
6 


Amortissement dégressif sur six ans 


35 000 40 000 
35 000 26 667 
35 000 17 778 
35 000 11 852 
35 000 - 11 852 
35 000 11851 


210 000. 


Amortissement 


impôts que payent les entreprises. 
Un exemple le montrera claire- 
ment. 


Supposons qu'une entreprise 
achète une machine de 
120 000 francs, pour une fabrica- 
tion qui doit lui « rapporter » 
35 000 francs par an pendant six 
ans, sans tenir compte de l’amor- 
tissement. Je n'insiste pas sur ce 
que veut dire exactement « rappor- 
ter » disons que ces 
35 000 francs sont une « marge ». 


Le tableau ci-dessous vous 
montre comment seront calculés 
les impôts de l'entreprise avec 
trois modes de calcul des amortis- 
sements. Les deux premiers cas 
sont très simples : on amortit une 
somme égale chaque année, c'est 
ce que l'on appelle l'amortisse- 
ment linéaire. Le troisième exem- 
ple correspond à l'amortissement 
dégressif, qui est un peu plus 
compliqué et dont je parlerai un 
peu plus loin. 


Dans ces trois exemples, vous 
pouvez constater que les totaux 
des trois colonnes ne changent 
pas avéc le mode de calcul. Le 
montant total d'impôt payé sur six 
ans est toujours le même. Mais 
dans les deux derniers cas, ces 
impôts sont payés plus tard, ce qui 
présente un intérêt évident, sur- 
tout en ces temps d'inflation im- 
portante. 


Bénéfice | 
15 000 
15 000 

15 000 : 
15 000 


90 000 


Bénéfice 


— — 
nuummo 


120000  : 





Tableau 2 








Dans ces tableaux certains bé- 
néfices sont négatifs, dans ce cas 
les impôts sont nuls (l'Etat sub- 
ventionne parfois les entreprises 
en péril mais pas systématique- 
ment !). |! y a alors report des 
pertes sur les années qui présen- 
tent un bénéfice, ce qui explique 
que l'impôt est parfois inférieur à la 
moitié du bénéfice. Mais si l’entre- 
prise avait d'autres activités béné- 
ficiaires, la situation serait diffé- 
rente. Le déficit des premières 
années viendrait effectivement di- 
minuer le bénéfice total de l’entre- 
prise, et donc l'impôt payé. Dans 
ce cas, le déplacement des impôts 
vers l'avenir serait encore plus 
grand. 


Une exponentielle 
n'a pas 
de fin. 





Ces exemples nous montrent 
que l'entreprise désire pouvoir 
amortir le plus vite possible ses 
investissements pour diminuer son 
bénéfice « fiscal », lequel n'a pas 
toujours une signification très réa- 
liste. Les deux moyens d'y parve- 
nir sont de diminuer la durée 
d'amortissement ou de prendre un 
amortissement dégressif. Inutile 
de vous dire que le Code des 
Impôts est très précis sur ce que 
l'on a le droit de faire. 


Puisque c'est si intéressant, 
comment donc est calculé l'amor- 
tissement dégressif ? Le principe 
est d'amortir chaque année une 
somme proportionnelle à la valeur 
comptable, c'est-à-dire à ce qui 
reste après avoir enlevé les amor- 
tissements déjà réalisés. Sur le 
graphique 3 la valeur comptable 
de l'investissement décrit donc 
une courbe :exponentielle, au lieu 
d'une droite comme dans le cas de 
l'amortissement linéaire. Mais une 
exponentielle n’a pas de fin, aussi, 
pour éviter que les choses ne traï- 
nent en longueur, on reprend un 
amortissement linéaire vers la fin 
de la durée de vie de la machine 
(dans notre exemple, sur les deux 
dernières années). 


Le rythme d'amortissement est 
donné par ce que l'on appelle taux 
d'amortissement. Pour l'amortis- 
sement linéaire, le taux est simple- 
ment exprimé en % en divisant 
100 par la durée de vie du bien. 
Pour l'amortissement dégressif, on 
calcule d'abord le taux constant 
comme dans le cas linéaire, puis 
on le multiplie par un coefficient 
généralement compris entre 1,5 et 


3, pour obtenir le taux dit dégres- 
sif. Actuellement en France, le 
coefficient multiplicateur dépend 
de la durée d'amortissement, de la 
façon suivante : 

de 2 à 4 ans .......................... 1,5 
jusqu'à 6 ans 
supérieur à 6 ans 


Dans notre exemple, Sur six ans, 
le taux constant vaut 1/6 soit 
16,67 % et le taux dégressif vaut 
1/3 soit 33,33 %. 


Nous avons parlé jusqu'ici des 
amortissements tels qu'ils sont 
pratiqués en comptabilité géné- 
rale, la seule qui soit obligatoire et 
stricte pour toutes les entreprises. 
Les résultats auxquels nous 
sommes arrivés nous ont montré 
que ces calculs sont souvent artifi- 
ciels, Si vous avez le droit d'utiliser 
l'amortissement dégressif, ça vous 
fera plaisir parce que vous payerez 
vos impôts plus tard, mais ça ne 
correspond à aucune réalité écono- 
mique. 


Graphique 


Evolution de la valeur 


tir, et la valeur comptable en fin 
d'exercice (celle qui figurera au 
bilan en fin d'année). Il est écrit en 
Applesoft et ne présente pas 
grande difficulté ! Les données 
vous sont demandées de façon 
claire, il n’y a donc pas besoin 
d'instructions spéciales pour que 
vous puissiez l'utiliser. Le pro- 
gramme contrôle que toutes les 
données sont plausibles, en parti- 
culier. que la durée n'est pas frac- 
tionnaire (les demi-années sont ac- 
ceptées) et que la valeur ne 
comprend que des centimes (les 
millimes n'existent pas en France). 


Dans tous les programmes de 
comptabilité ou de gestion, on 
trouve d'ailleurs ces problèmes 
d'arrondi et de nombre de chiffres 
après la virgule. Les centimes doi- 
vent être exacts même s'ils n'ont 
aucune signification. Ces problè- 
mes sont ici résolus par l'emploi 
systématique des fonctions défi- 
nies au début du programme 
F2 (X) est l'arrondi au centime le 
plus proche de X ;: ND (X) est le 


comptable dans le temps 





ex. : 
L'PIENtielie 


— 


Tableau 3 : évolution de la valeur comptable dans le temps 


Par contre, dans de nombreux 
cas, il est nécessaire de calculer 
des amortissements sur des bases 
différentes, pour obtenir des indi- 
cations plus fiables sur, par exem- 
ple, la rentabilité d'un investisse- 
ment. Le problème se pose en 
particulier pour le calcul des prix de 
revient — vous vous souvenez de 
l'exemple de la voiture au début de 
cet article ? Ceci explique que les 
entreprises calculent parfois 
l'amortissement de la même ma- 
chine de trois ou quatre façons 
différentes selon l'usage qui en 
sera fait. 


Le programme que nous vous 
proposons calcule les amortisse- 
ments linéaires ou dégressifs et les 
présente sous forme de tableau, 
par année, avec la somme à amor- 


nombre de chiffres après la virgule 
que possède X (attention : c'est 
- 1siX est entier). 


Il y a enfin un problème dont 
nous n'avons pas parlé, celui de la 
première année. Quand un bien est 
acquis en cours d'année (c'est-à- 
dire dans la plupart des cas) 
l'amortissement de la première 
année est réduit à une partie de ce 
qu'il aurait été pour une année 
pleine. Ceci se fait proportionnelle- 
ment au nombre de jours écoulés 
entre l'achat et la fin de l’année. 
Mais le calcul est simple, car il 
s’agit de jours « comptables », sur 
la base d'une année fictive de 
12 mois tous égaux de 30 jours. 





Guilhem Bouteloup 
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Première parution : L'Of n° 42 





simulation 





attendre... 
attendre... 
toujours attendre ! 





Que ce soient les artisans (faut-il embaucher ?), 
les industriels (faut-il faire un stock ou l'aug- 
menter s’il existe déjà), les commerçants (faut-il 
agrandir la boutique ?), les grandes surfaces 
(combien de caisses enregistreuses à tel ou tel 
moment de la journée ?), les transports de mar- 
chandises (quel doit être le volume du camion ?) 
ou de personnes (attente au guichet SNCF, 
péage d'autoroute, etc.), bref, tout ce monde se 
trouve devant le même problème de file d'at- 
tente, mais avec des données différentes ! 





Une file d'attente est provo- 
quée : 
. par l’arrivée d'individus à inter- 
valles fixes ou variables d'une 
part ; 
. par la prise en charge ou le 
traitement de ces individus à in- 
tervalles fixes ou variables d'autre 
part. 


Jusqu'ici les choses sont limpi- 
des mais, hélas, incomplètes. En 
effet, les arrivées ou les traite- 
ments peuvent être simples ou 
multiples et, dans le cas où ils 
sont multiples, le nombre d'indivi- 
dus lui aussi peut être fixe ou 
variable (ça se complique !). 


Ce n'est pas tout : le fait d'ad- 
mettre que des éléments sont va- 
riables implique que cette variabi- 
lité suive les lois mathématiques 
connues, de façon à pouvoir simu- 
ler les variations que l’on rencon- 
tre couramment dans la « nature » 
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(employé ici au sens très large du 
terme !}. 


Les concepts statistiques vien- 
dront à notre secours en nous 
donnant des modèles mathémati- 
ques pouvant reconstituer à peu 
près tous les cas de figures en 
matière de variation. 


L'ordinateur simule les 
variations rencontrées 
dans la nature 


Trois types de variations sont 
mis en œuvre : 


— aléatoire : chaque valeur déli- 
mitée par deux bornes (inférieure 
et supérieure) a la même probabi- 
lité d'être générée ; 

— gaussien : la probabilité d'une 
valeur est d'autant plus forte 
qu'elle est située à proximité de la 


moyenne, elle-même centrée par 
rapport aux valeurs extrêmes ; les 
caractéristiques définissant cette 
loi sont la moyenne et l'écart type 
(variation des valeurs autour de la 
moyenne + trois écarts types) ; 


— poissonnien : analogue à la loi 
de Gauss, à la différence près que 
la moyenne peut être plus ou 
moins décentrée : les caractéristi- 
ques définissant cette loi sont la 
moyenne, l'écart type et’le cen- 
trage de la moyenne (six écarts 
types entre les valeurs extrêmes) ; 
ici, la loi de Poisson est utilisée de 
façon un peu inhabituelle mais 
adéquate (les contestataires sont 
priés de se faire connaître !). 


Pour chacun de ces trois types, 
un petit programme (tout petit...) 
permet de vérifier que la simula- 
tion est fidèle au modèle de varia- 
tion choisi. Pour ce faire, ces pro- 
grammes sont construits autour 
d'un même schéma : 


— génération des valeurs corres- 
pondant au modèle de variation, 


— classification de ces valeurs 
par ordre croissant, 


— regroupement par classe ayant 
chacune le même intervalle 
Ne : 10 à 15, 15 à 20, 20 à 
251.0) 


Le nombre de classes sera égal 
à la racine carrée du nombre de 
valeurs avec un plafond à 15 
(c'est-à-dire un écran)... (Ah oui! 
j'oubliais de vous dire : ça tourne 
sur un TRS 80 modèle 1, 16 Ko 
garanti !) 





RÉ 


Le tout est mis dans un su- 
perbe graphique avec les classes 
en ordonnées et les effectifs de 
classe en abcisses, et s'appelle 
«histogramme de fréquences ». 


Ce programme est d'ailleurs 
inclus dans le programme princi- 
pal pour visualiser la répartition, 
non plus des valeurs générées, 
mais des attentes d'arrivées ou 
de traitements (au choix). 


Cela nous amène tout naturelle- 
ment au fonctionnement du pro- 
gramme principal dans lequel on 
observe trois phases successi- 
ves : l'entrée des données, la si- 
mulation, l'affichage des résul- 
tats. 


1) L'entrée des données : une 
foule de questions vous sont 
posées, mais aucune cependant 
n'est superflue. 


En premier lieu, il vous est de- 
mandé quel type d'analyse vous 
voulez faire : les attentes de trai- 
tement ou les attentes d'arrivées, 
cela afin de ne stocker que les 
données nécessaires (16 Ko 
oblige !) ; cette analyse s'effec- 
tuera à l’aide de l'histogramme. 


Une brève question ensuite sur 
les arrivées ou traitements simul- 
tanés ou non ; cela afin d'écourter 
le questionnaire dans le cas où les 
arrivées et les traitements sont 
simples. 


Ensuite, l'ordinateur vous met 
en condition pour affronter le 
reste du questionnaire. Il rappelle 
en même temps que tout a une 
limite (et il fait partie du tout) et 
vous engage à ne pas dépasser 
les doses prescrites afin de pré- 
server son équilibre mental ! 


Vient alors le « rush » des ques- 
tions embétantes qui peuvent 
vous mettre dans l'embarras si 
vous n'avez pas effectué un mini- 
mum de travaux de préparation. 
On peut résumer ces questions 
suivant le schéma ci-après. 


MODELE DE VARIATION ? 


INTERVALLE D'ARRIVÉE 


TEMPS DE YKAILEMENT 


NOMBRE D'INDIVIDUS 


ALEAïOIRE ? 


DOHNES 
- Inférieures ? 
- Supérieures ? 


VALEUR ? 


EFFECYIF DE 


POISSONNIEN ? 


MOYENNE ? MOYENNE ? 


ECART LYPE ? ECART ÎYPE ? 


CENTRAGE DE 
LA "MOYENNE ? 


LA POPULATION 


c'est-à-aire le nombre a'individus à traiter 





Il va de soi que, pour avoir une 
réponse à donner à toutes ces 
questions, il faut aller « à la 
pêche » (là aussi au sens très 
large du terme) ou faire preuve 
d'un grand talent d'improvisation. 
Si vous avez des relevés sur ce 
qui s'est déjà produit, le petit pro- 
gramme ci-dessous vous sera 
d'un grand secours pour définir 
vos modèles de variation. 








Tracé d'un histogramme avec valeurs en DATA 


1Q CLEAR:DIMF (1600), Gi 1:00) : READA:MINSA:RESTORE 
LQ FORF=1TO) 4Q0: READA* IFA=OTHENKE 1 40: SOTOSQ 


Eh bien voilà, c'est terminé 
pour la première phase (ouf !). 


2) la simulation : là, deux situa- 
tions possibles : 


— le jeu des questions et des ré- 
ponses vous a traumatisé, alors 
vous enfoncez la touche CLEAR et 
vous n'aurez pas besoin de vous 
voiler la face ; seuls deux petits 
chiffres apparaîtront au centre de 





JQ H=H+1:A=INT' A):FiA)=F'A)+1:IFMIN:ATHENMIN=A 
4 PRINTUSING" #RHH4#KH MSIAS:IFMAXSATHENMSX=A 

59 NEXTK:IFS@R H)<15STHEND=INT(SGR H)4#1)ELSED=1S 
ERA MOY=MAX-MINSC=INT I MO D+1 ) :M=1 

7@ CLSSFORJEINT MIN: TOINT: MAY) STERC:E=J+C 

89 FRINTUSING"###"5J5:PRINT" MSUSINS"### "SE: 
90 FOURI=JTOJ+C-1iGiJ)=GtJ)+F CL) EMNEXTI 

IFGiJ) /M>47THENMEM+S 2FORI=JTOMINSTEP-CE GI) SO: NEXTI:GOTO7@ 
IFG(J)SQTHENFOFLE=ITOGIT) ,MIPRINTCHF# (141) 5 :NEXTL 
IFG!J)=<QOTHENPRINTINEXTJ:GOTO (46 
PRINTINT EG CJ: /Hx1@0@+,5)/193"%"INEXTJ 
IFFEER ( 14400) <%1THEIIL4@ELSE 10 
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l'écran : les nombres d'individus 
traités et en attente : 


— vous êtes sûr de la représenta- 
tivité de vos réponses, alors vous 
enfoncez la touche ENTER et ob- 
servez, étape par étape, le dérou- 
lement des événements (c'est-à- 
dire le détail de la file avec l'heure 
d'arrivée de chaque individu en 
attente). 


Il est évidemment possible, 
dans le cas d'un brusque change- 
ment d'avis, de revenir à l'une ou 
l'autre situation en utilisant les 
touches adéquates (CLEAR ou 
ENTER). 

Point n'est besoin d'impri- 
mante pour visualiser le détail de 
la simulation. La gestion des ta- 
bleaux est faite de façon que 
l'écran remplisse parfaitement 
son rôle d’économiseur de papier, 
d'autant plus que, comme toute 
simulation qui se respecte, elle 
doit être répétée un certain nom- 
bre de fois. 





Une seule 
chose à faire : 
ne rien faire 





Une recommandation : il peut 
arriver que votre TRS, pris de stu- 
peur, soit frappé de paralysie le 
condamnant à une immobilisation 
complète (qui ne sera que tempo- 
raire, je vous rassure). Si cela ve- 
nait à se produire, surtout pas de 
panique et dites-vous bien que 
vous n'en êtes pas responsable | 
De plus, il n’y a qu'une seule 
chose à faire : ne rien faire ! 


Il s'agit, en fait, suite à un 
temps d'attente trop long pour la 
taille mémoire disponible, d'un 
changement d'adresse et d'un re- 
groupement partiel de toutes les 
données déjà collectées de sorte 
que les adresses de stockage ne 
dépassent pas la réserve de mé- 
moire prévue (ce sont, en fait, les 
temps d'attente qui servent 
d'adresses...). 


3) L'affichage des résultats : 
une première partie rappelle de 
façon condensée les données de 
départ avec, en plus, les ratios 
intervalle/nombre d'individus qui 
permettent de dégager la ten- 
dance des attentes (équilibre si 
les deux ratios sont égaux, sinon 
les attentes augmentent là où le 
ratio est le plus fort) ; cela seule- 
ment dans le cas d’arrivées ou 
traitements multiples. 


Une seconde partie donne en 
valeur maximale et en moyenne : 
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GENERATION DE NOMBRES : — Modèle ALEATOIRE 
cts . 

10 CLEARIDIMF(170@0),G(17@8) : PRINT: INPUT"E.INF.,B.SUP."$BI,BS 

MIN=BS: INPUT"NOMERE DE TIRAGES "$H1:CLS:FORK=1ITOH 
=BS-RND(BS-RI)+1 

A=INT(A):F(A)S=F(A)+11:IFMIN>ATHENMIN=A 

PRINTUSING" ##H##4## "J1A%:IFMAXCATHENMAX=A 

NEXTK:1IFSGR(H)<1STHEND=INT(SGR(H)+1)ELSED=15 

MOY=MAX-MIN: CæINT(MOY/D+1) :M=1 

CLS:PRINTAS, "BORNE INF.: "5BI;" -=20=- 

FORJ=INT(MIN)TOINT(MAX)ISTEFCIE=J+C 


BORNE SUP.: ";BS:PRINT 










100 PRINTUSING"###" ;J::PRINT" À "SUSING*##h# ":E3 

119 FORI=JTOJ+C-1:G(J)=G(J)+F(I):NEXTI 

120 IFGiJ)/M>49THENM=M+1:FORI=JTOMINSTEP-C:G(I)=@:NEXTI :GOTO80 
130 IFG(J) >GTHENFORL=1TOG(J) /MIPRINTCHRS (143) FINEXTL 

140 IFG(J)=@THENPRINT:NEXTJ:GOTO169 

15@ PRINTINT(G(J)/H#100+.5)3:"%":NEXTJ 


IFPEEK( 14490) <> 1THEN16BELSE1@ 


- Modèle GAUSSIEN 


ae CLS ; 

19 CLEAR:DIMF (1780) ,G(17@8@) : PRINT: INPUT*MOYENNE , EC.TYPE *“5X,S 
2@ MIN=X:INPUT"'NOMBRE DE TIRAGES * 4H: CLS:FORK=1TOH 

30 A=SxSQRI-2#L06G(RND(@) ) }#COS(6.Z8#RND(@) )+X 

40 A=INT(A)1F(A)=F(A)+11IFMIN:ATHENMIN=A 

5@ PRINTUSING" ###4### "jA3:IFMAX<ATHENMAX=A 

68 NEXTK:IFSQ@R(H)C1STHEND=INT(SG@R(H)+1)ELSED=15 

70 MOY=MAX-MIN:C=INT(MOY/D+1) :Mei 

8@ CLS:PRINTA9, “MOYENNE : "3X5" —-=0=- 
90 FORJ=INT(MIN)TOINT(MAX)ISTEPC:E=J+C 
108 PRINTUSING"###" ;J3:PRINT" À “SUSING"### *;E3 
119 FORI=JTOJ+C-1:G(J)=G(J)4+F(I):NEXTI 









ECART TYPE # "$St:PRINT 






















120 IFG(J)/M>49THENM=M+1 :FORI=JTOMINSTEP-CIG(1)=@INEXTI1G0TO8@ 
130 IFG(J)>@THENFORL=1TOG(J) /MEPRINTCHRS (143) ; ëNEXTL 

140 IFG(J)#@THENPRINT:NEXTJ:GOTO168 

158 PRINTINT(G(J)/H#108+.5)3"%":NEXTJ 


160 IFPEEK(144@0) ©>1THENIG@ELSE1@ 





- Modèle POISSONNIEN 






CLS 
18 CLEAR:DIMF (1600), G(160@08) : PRINT: INPUT"MOYENNE , EC.TYPE "3X,S 

15 INPUT"CENTRAGE DE LA MOYENNE : À GAUCHE -3 À @ , À DROITE @ À +3 “iCE 
MIN=X:INPUT"NOMBRE DE TIRAGES "3H: CLS:FORK=1TOH 
AaS#SGR(-2#LOG(RND(@) ) }#(CO0S(6. Z8#RND(@) )-CE/3)+X 
AzINT(A):F(A)=F(A)+1:IFMIN>ATHENMIN=A 

FRINTUSING®" WH#H## “5A31IFMAXCATHENMAX=A 

NEXTK: 1FSQR(H) C1STHEND=INT (SG@R(H)+1)ELSED=15 

MOY=MAX-MIN:C=INT (MOY/D+1) :M=1 

CLS: PRINT"'MOYENNE : “5X5" 


re ECART TYPE : "3Sj" -=- CENTRAGE t: “ICES1PR 




















98 FORJ=INT(MIN)TOINT(MAX)STEPC:E=J4#C 
108 PRINTUSING"###"3J3:PRINT* À "{USING"### “5E; 


119 FORI=JTOJ+C-1:G(J)=2G(J)+F(I):NEXTI 

120 1FG(J)/M>49THENM=M+1 :FORI=JTOMINSTEP-C1G(I)=@1NEXTI : GOTOB® 
130 1FG(J)>OTHENFORL=1TOG(J) /MI PRINTCHRS (143) $ :NEXTL 

148 IFG(J)=OTHENPRINTINEXTJ:GOTO168 

150 PRINTINT(G(J)/H#100+.5)3"%":NEXTJ 


150 IFPEEK! 14400) <>1THEN1 6@ELSERANDOM:GOTO18 





PROGRAMME DE SIMULATION DES FILES D'ATTENTE 

























o ” ORIGINE L'O,1, N.11 

S CLEAR:DEFINTT:DIM TX(10@:.T{10@).FILE(1@1@::MW=1:CLS 

19 PRINT®#+ # # ExTeUNDLRE DES EF: LIL ESSPAD REA NME NNLT E + * + 
* PROGRAMME DE SIMULATION #*" 

12 PRINT:PRINT" 

15 PRINT:PRINT” 


VISUALISATION DE L'HISTOGRAMME : 









1- DES ATTENTES DE TRAITEMENT ( REPARTITION DE LA FILE 
Z- DES ATTENTES D'ARRIVEE { REFARTITION DES ARRETS )" 
20 PRINT:PFRINT* LEQUEL VOULEZ-VOUS OBSERVER 7* 

25 HIS$S=INKEYS:HI=VAL(HIS) 

30 IF HI)2 OR HI<1 THEN 25 ELSE CLS 

4@ PRINT'LES ARRIVEES QU LES TRAITEMENTS PEUVENT ETRE : 





1- MULTIPLES ( AVEC MODELE DE VARIATION À VENIF ) 
SIMPLES { INDIVIDU PAR INDIVIDU ) 


2- 









QU'EN EST-—IL DANS VOTRE CAS 7... ": 

45 MS$S=INKEYS:MS=VAL(MSS ) 

46 IF MS>2 OR MS<1 THEN 435 

47 IF MS=1 THEN PRINT'ARRIV, ET(OU) TRAIT. MULTIPLES" 
48 IF MS=2 THEN PRINT'ARRIV. ET TRAIT, SIMPLES" 

49 PRINT:PRINT" —=0=-" 

5@ PRINT:PRINT"IL VOUS RESTE MAINTENANT À DEFINIR : 











- LES INTERVALLES D'ARRIVEES ( < 10 SI POSSIBLE ) 
- LES INTERVALLES DE TRAITEMENT LR 2f } 
- L'EFFECTIF DE LA POPULATION { < 1002 IMPERATIF !)" 
55 PRINT:PRINT"... 4 VOUS DE CHOISIR LES UNITES DE CALCUL . 
57 IF PEEr(14400)->1 THEN 57 ELSE CLS 
68 PRINT'INTERVALLE D'ARRIVÉE : ":0=1:GOSUE 6100:GOSUR 6400: VARS=URS 0): ITARIV=A 
67 IF ITARIV:327 THEN P=1 ELSE P=100 
68 IF VR=1 THEN PEVENT(I)=RNDOITARIV) 
69 IF VR>1 AND VR<5 THEN PEVENT(1)=RND{ITARIV#P)/P 
7@ IF MS=1 THEN GOSUR S21D:CLS 


{ ENTER S.V.P.)"; 





71 PRINT'TEMPS DE TRAITEMENT : ":O=Z2:GOSUP 61@0:GOSUR 6400: UTRS=UVRS (0): TTRAIT=A 


76 IF MS=1 


THEN GOSUR 9020: CLSFPRINT:PRINT 


80 INPUT"EFFECTIF DE LA POPULATION" ;EFFPOP: CLS 


100 
118 
128 
130 
133 
135 
149 


141 
142 
143 
144 
147 
17@ 
180 
190 
192 
195 
197 
z00 
206 
210 
220 


1020 
1905 
1010 
1220 


PEVENT (2) =1020800 : RANDOM 
PRINTG896,"POUR VISUALISER LE DETAIL DE LA SIMULATION => 
SINON => 


ENTER" 
CLEAR" ; 
BOUCLE DES EVENEMENTS 
IF FILE>:G1 THEN Gi=FILE 
M=M+FILE : MN=MN+1 
1F PEVENT(I)“PEVENT(Z) THEN K=1 
ELSE h=2 
IF N+FILE>=EFFPOP THEN K=2 
IF PEEK(144@0)=1 THEN V=1 
IF PEER(14400)=2 THEN V=Z:CLe 
IF Va=Z THEN PRINTG470,"### "INS" # "SFILES" 
IF V=Q THEN 142 
DATE=PEVENT (h ) 
ON K GOSUE 1000, :000 
IF EVENEMENT=Q AND FILE @ THEN GOSUR 3000 
IF FILE=Q THEN EB=E+1 
IF B=:1 AND V: Z THEN GOSUP 6000 
IF Vsil THEN V=Q 
IF EFFPOF:N OR FILE:@ THEN 130 
IF PEEk(144001<;Z AND V=@ THEN 
GOSUE 4000 
END 


222 “{GOTS 170 


06 


ARRIVEES 
GOSUR. 620@:PEVENT(1)=DATE+A:IF MS=1 THEN GOSUR GOIG:NI=INT(A+.5) 
FILE=FILE+1:B=0 
FILE(N+F ILE )=DATE 


1930 N1=N1-1:IF N1>0 THEN 1810 


1999 
2000 
2020 
28030 
2035 
2050 


LE DERNIER TRAITEMENT EN COURS EST TERMINE 
PEVENT(2Z)=DATE+10000 

INOC=DATE 

IF FILE=Q THEN P=P+]:GOT0 2058 

EVENEMENT=Q 


2999 


3000 
3210 
3020 
3076 
3027 
3028 
3030 
3050 
3060 
3062 
3066 
3070 
3080 
3999 
1000 
4005 
4810 
4020 
ARRIVEE 
4025 IF MS=1 THEN PRINT TAB(28) 3; INT CITARIV); 
/10:TAR(44)VRS(1)$TAR(S3)5;" 
4039 IF MS=1 THEN PRINT"'TPS DE TRAIT. 


UN NOUVEAU TRAITEMENT COMMHENCE 
GOSUR 6245 : PEVENT (2)=DATE+A 
IF MS=1 THEN GOSUR 9070:N2=INT(A+.5) 
IF MS=1 AND AV>TR THEN 3028 
IF MS=1 AND V2 OR V<>2 AND FILE(N+1)=DATE THEN GOSUR8000:GOT(3030 
IF MS=1 AND V:32Z AND FILECN+1)=DATE THEN GOSUE 8000 
ATTENTE=ATTENTE+ (DATE-FILE (N+1 )) 
FILE=FILE-I:EVENEMENT=1:1F MS=1 THEN NZ=NZ-1 ELSE N2=0 
N=N+1 
IF DATE-FILE(N)>G2 THEN G2=DATE-FILE(N) 
IF DATE-INOC:G3 THEN GI=DATE-INOC 
GOSUR 5000:1F NZ>:0 AND FILE>O THEN 3030 
TINOC=TINOC+ (DATE-INOC ) 
RETURN 
IMPRESSION DES RESULTATS 
CLS:FOR Ie1 TO 4:1F VRS(1)="POISSONNIEN" THEN VRS(I)="POISSON. * 
NEXT I:PRINT TAB(29);"VAL. MOYENNE" {TAB(42);"- MODELE DE VARIATION" 
IF MS=1 THEN PRINT“INT. D'ARRIV. / NB D'INDIV. :"; ELSE PRINT" INTERVALLE D' 
us 
*/* INT AV) "=" $INT(ITARIV/AV#10+.5) 
"{VRS(3) ELSE PRINT TAB(33) 3 ITARIVITAE (49) 3 VARS 
/ NB D'INDIV. :°3 ELSE PRINT"TEMPS DE TRAI 


TEMENT 174 


4025 IF MS=1 THEN PRINT TAB(28);INTOTTRAIT: 3" 
/10: 
4040 
4045 
4850 


4055 
4860 


4065 


À 


407Q 
4072 
1008: 


J'$INTITR)$ "=" $ INTITTRAIT/TR#10+,5) 
TAP(44)SVRS(2)3TAR(S3);" *SVR#S(4) ELSE RRINN TAB(33) {TTRAITITAB(49) 4 VTRS 
PRINT'EFFECTIF DE LA POPULATION : "35N 

PRINT:PRINT TAR(3Z)3;"MAXI"3;:PRINT TAR(42)3;" MOYEN" 

PRINT'NRB. D'INDIVIDUS EN ATTENTE :";: 

PRINT TAB(31)3G111PRINT TAB(41):FIX(M/MN+,5) 

PRINT"TPS D'ATTENTE DE TRAITEMENT :";: 

PRINT TAB(31):G2::A=ATTENTE/N:GOSUE 6082: PRINT TAB(41)5;A 

PRINT"'TPS D'ATTENTE D'UN INDIVIDU :";: 

PRINT TAB(31):G3;:A=TINOC/NE&GOSUER 6GBB: PRINT TAP(41)5A 

PRINT"TEMPS MOYEN PAR INDIVIDU î *{:A=PEVENT(Z)/N:GOSUR 6000:PRINT 


PRINT*'TEMPS TOTAL : 
PRINT"TAUX MOYEN D'UTILISATION : 
GOSUP 6000:PRINT Aÿ"/"s#PRINT 


*;PEVENT (2) 
*$:A= (PEVENT(2)-TINOC)/PEVENT(2)# 


4074 IF HI=Z THEN PRINT"'POUR VISUALISER L'HISTOGRAMME DES ATTENTES D'ARRIVEE => 
ENTER 


SINON => CLEAR* 


4075 IF HI=zi THEN PRINT"POUF VISUALISER L'HISTOGRAMME DES ATTENTES DE TRAIT, => 
ENTER 


SINON => CLEAR* 





IF PEERiIL14400)=27 THEN 4200 
IF PEER(14400):>1 THEN 4@7é ELSE CLS 
D=INT(SSRIN)+1):IF D 15 THEN D=15 
C=INTIMAXY/D+1):Uz=i 
CLS:IF HI=i THEN PRINTA7,"### HISTOGRAMME DES ATTENTES DE TRAITEMENT 
IF HI=Z THEN PRINTA9,"#+## 
PRINT 
FOR J=0 TO MAX STEP C:EC=J+c 
FOR I=J TO J+4+C-1:T(J)=T(J)+TXCI):NEXT 1 
IF T(J):@ THEN PRINT USING"M#4##" ; Jeu: : PRINT" "SUSING"HHHH "EC; 
IF T(J)/U0>45 THEN UsU+1:FOR I1=J TO @ STEP -C:T(1)=@:NEXTI:GOTO410@ 
IF T(J)>Q THEN FOR Læi TO T(J)/U:PRINT CHRS(143);:NEXT L 
IF T(J)=0 THEN NEXT J 
PRINT INT(T(J)/N#1000+.5)/19; 
1F PEEK(14490)<>1 THEN 4190 
CLS:PRINT:PRINT:PRINT:PRINT:PRINT"SI VOUS EN VOULEZ ENCORE ; JE PEUX : 


HISTOGRAMME DES ATTENTES D'ARRIVEE 


LEZ De 


"A"INEXT J 





— le nombre d'individus en at- 
tente, 
— les temps d'attente de traite- 
ment, 
— les temps d'attente d'arrivée : 
puis en valeur unitaire : 
— le temps moyen parindividu, 
— le temps total pour traiter la 
population, 

le taux d'utilisation des moyens 
de traitement. 


Enfin, une troisième partie 
donne la répartition des attentes 
de traitement ou d'arrivées sui- 
vant votre choix du début : c'est le 
tracé de l'histogramme des atten- 
tes. 





L'ordinateur 
trace l'histogramme 
des attentes 


Chaque classe de valeurs y est 
indiquée par ses bornes inférieure 
et supérieure et l'effectif y est 
exprimé de deux façons : 


— un trait dont l'importance cor- 
respond à l'effectif (le programme 
est ainsi fait que, quel que soit 
l'effectif, une classe ne fera 
jamais plus d'une ligne ; si tel est 
le cas, on efface tout et l'on re- 
commence, ce qui produit parfois 
quelques effets spéciaux...) : 


— à la suite du trait, le pourcen- 
tage que représente la classe par 
rapport à la population (si leur 
somme est différente de 100 %, 
ne vous posez pas trop de ques- 
tions, c'est à cause des arrondis). 


Après cela, il est possible (en 
enfonçant ENTER) de : 


— revisualiser le tableau précé- 
dent, 


— refaire une simulation avec les 
mêmes critères, 





Pal 
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1- VISUALISER LES RESULTATS PRECEDENTS 

2 FAIRE UNE NOUVELLE SIMULATION AVEC LES MEMES CRITERES 
He AVEC D'AUTRES CRITERES" 

4205 PRINT:PRINT"SINON ENFONCEZ LE << 4 >>" 

4219 CHS=INKEYS : CH=VAL (CHS# ) 

4220 IF CH>4 OR CH<1 THEN 4210 ELSE CLS 

4230 IF CH=1 THEN FOR I=9 TO MAX:T(I)=@:NEXT I:GOTO 4000 

4240 IF CH=2 THEN FOR I=Q TO MAX: TX(I)=@:T(I)=@:NEXT I:FOR 1=0 TO N:FILE(I)=Q:NE 

XT IIN=O:V=0:M=D:MN=Q:FILE=Q:ATTENTE=@: TINOC=Q: GOSUR 6200: PEVENT(1)=A:EV=0:@=0:1 

NOC=0:G1=0:G2=-0:G1=0:Pi=0:P2=0:PI=0:GOTO 100 

4250 IF CH=3 THEN 5 

IF CH=4 THEN PRINT9403,"VOUS ETES FATIGUES ! 





ALORS PRENEZ VOTRE TOUR DANS LA FILE D'ATTENTE . 






«+ . CELA VOUS REPOSERA ." 
1F PEEKC14400)=1 THEN 4200 ELSE 4270 
RETURN 





COMPTABILISATION POUR HISTOGRAMME 
1F HI=1 THEN X=INT(DATE+.5S-FILECN)) 

IF Hi=Z THEN X=INT(DATE+.5-INOC) 

X=X/W:1F XCO THEN X=0 

IF X>MAX THEN MAX=X 

IF MAX>10@ THEN FOR I=1 TO 1@0:TX(INT(I/1@))=TXCI1)+TXCINT(1/18)):TXCI)=@NE 
XT ItW=W#10tMAX=MAX/18:GO0TO0 5000 

SQEQ TX(X)=TX(X)+1 

5999 RETURN 

SOO0NEEEree ARRONDI À Z DECIMALES ; AU PLUS PRES 
6018 A=FIX((100%A)+,5)/100 

6099 RETURN 

DIPO ar nRrerse 


CHOIX DE LA VARIAPILITE 


611@ PRINT" 1- FIXE 
Z- ALEATOIRE 
3- GAUSSIEN 
4- POISSONNIEN 
FAITES VATRE CHOIX ?t ... "5 


6120 URS= INREYS 2 VR= VAL (VRS) 2 IF VR>4 OR VR<1 THEN 6120 

6130 1F VR=1 THEN VRS(O)= "FIXE" : PRINTURS(Q)tINPUT*VALEUR " ; A: RETURN 

6140 IF VR=Z THEN VRS$(0)="ALEATOIRE" :PRINTURS(Q):INPUT*BGORNE INF. , BORNE SUP, * 
1BI(O),BS(O)4GO0TO6170 

6150 1F VR=3 THEN VR$(0)="GAUSSIEN" 
O0),ET(Q):GOTO 6180 

6160 IF VR=4 THEN VRS(O)=" POISSONNIEN" : PRINTURS (0) 3 
MQOt(O),ET(0)tINPUT"CENTRAGE DE LA MOYENNE : 
E(O):G0TO0 6180 

6170 IF BI(O)>RS(O) THEN B=PI(Q):RI(O)=BS(0):PS(O)=P 
6180 IF MO(CO)<ET(O) THEN ME=MO(O) :MQ(O)=ET(O):ET(CO)=ME 
6198 RETURN 


£ PRINTURS (OO): INPUT"MOYENNE , ECART TYPE * 5 MO 


INPUT"'MOYENNE , ECART TYPE "; 
A GAUCHE -3 À @ , À DROITE @ A +3 "D 





6210 1F 
Z220+1F 
6230 41F 


TRI DES DONNEES VERS MODELE DE VARIATION 
VARS="FIXE" THEN A=ITARIV:RETURN 

VARS="ALEATOIRE" THEN O=1:G0T0 6370 

VARS=" GAUSSIEN" THEN O=1:G0T0 6230 

VAR$#=" POISSONNIEN" THEN O=1: GOTO 6340 
VTR$#="FIXE" THEN A=TTRAIT:RETURN 

VTRS="ALEATOIRE" THEN O=2:GOT0 6320 
VTRS="GAUSSIEN" THEN Ü=2Z:GO0T0 6330 
VTRS$S="POISSONNIEN" THEN O=2:G0T0 634 
VARIABILITES 
A=(BS(0)#102+1-RNDI(BS(G)-PI(O))#100+1))/108: RETURN 
ASET(Q)#S@R(-2#LOG(RND(@) ))#COS (6, 282Z#RND(@))+M0(0):GATO 6000 
ASET(0)MSAR(-24LOGTRND (D) ) 4008 (6. Z83Z#RND(D))-DE(Q)/3)+MO0(0):GOTO 6800 
AFFECTATION DE LA VARIABLE MOYENNE 
1F VR=Z THEN A=(BI(Q)+BS(0) )/2 

1F VR=3 THEN A4=MO(Q) 
IF VR=4 THEN A=MO((C) 


H=0:H1=60@ 

FOR J=H TO H+Hi STEP 5 

FOR I1=1 TO 5 
IF FILE<I+J THEN PRINT:GOTO 799% 

7036 IF FILE(N+I+J)<999 THEN PRINT USING"#H#H.4#4#" 3; FILE(N+1+J); ELSE PRINT USING* 
NAMMAMMTSFILE(N+I+J) 
7040 NEXT I 
7045 IF FILE<)+J THEN 7999 
7050 PRINT:PRINT TAP(23); 
7060 NEXT J:1F FILE<65 THEN 7999 
7070 IF PEER(1440@)<:1 THEN 707@ ELSE H=H+6@:G0T0 7810 
7999 LæINT((J+1-1)/5+.8):RETURN 
EVE eee IMPRESSION DU TABLEAU DE SIMULATION —-------- 
peid IF PEVENT(Z2)4999 THEN PRINTA128+@,USING"###M#N, Hh° ; DATE ; PEVENT (2) 3 : PRINT" 

SUSING'#4#" ;FILESELSE PRINTAIZR+0.USING"#NHNHHHHHH#" :; DATE; PEVENT(Z)3:PRINT®  "USI 
NG"4##"; FILE: ù 
8020 IF FILE“:Q THEN GOSUE 7000 ELSE PRINT 
6030 G=Q+é64#L:I1F @+128>760 AND I=6 THEN PRINT 
8040 IF @+1728:960 THEN 6=832 
805@ PRINTAO,”" CALENDRIER 


IMPRESSION DES DATES D'ARRIVEE EN ATTENTE ---- 



















SITUATION DE LA FILE D'ATTENTE 
DATES D'ARRIVEE 








OSUR 6100:GOSUR 640 





ARRIVEES ET TRAITEMENTS MULTIPLES -- 
9010 PRINT"NOMBRE D’ INDIVIDUS À VENIR SIMULTANEMENT : ": 
B:AV=A : AVS=URS (0) : RETURN 

9020 PRINT'NOMBRE D'INDIVIDUS TRAITEES SIMULTANEMENT : ” 
QG: TR=A:TRS=VRS (11) : RETURN 

9030 IF AVS="FIXE" THEN Ü=3:A=AV: RETURN 

‘IF AVS="ALEATOIRE" THEN G=3:G0TO 6320 
7050 IF AVS="GAUSCIEN" THEN 0=21:GO0OT0 6330 
AVS="POISSONNIEN" THEN O=3:G0TO0 6340 
TR$="FIYE" THEN O=4:A=TR:RETURN 
TR$#="ALEATOIRE" THEN O=4:GOT0 6220 
TR#$#="GAUSSIEN* THEN G=4:G0T0 6330 
TP$="POISSONNIEN" THEN O=4:G0T0 6340 


10=4:GOSUPR 6102:GOSUR 64 
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— refaire une simulation avec les 
critères différents. 


Et si, de tout cela, rien ne ré- 
pond à votre attente, enfoncez 
toujours le 4 : sait-on jamais ?.…. 


Exemple d'utilisation 


Question : combien faut-il mettre 
de postes de péage en fonction 
sur l'autoroute À 6 un retour de 
grand week-end ? 


Données : on sait qu'une voie 
peut débiter une moyenne maxi- 
male de 2 000 véhicules par 
heure (soit 1,8 seconde par véhi- 
cule). (Cette valeur n'est qu'un 
exemple : elle peut être plus éle- 
vée.) 


Cette fréquence (1,8 se- 
conde/véhicule) peut varier sui- 
vant la loi de Poisson (écart type 
1s, centrage de la moyenne — 2). 


Le nombre d'arrivées simulta- 
nées est lié au nombre de files, 
c'est-à-dire varie de O à 3 
(moyenne 1,5, écart type 0,5). 


Sachant qu'une caisse peut ab- 
sorber 180 véhicules /heure (chif- 
fre pouvant varier de 120 à 
240 véhicules /h de façon aléa- 
toire, soit 30 à 15 s/véhicule) et 
que nous avons une moyenne 
maximale de 2 000 véhicules/h 
arrivant en moyenne sur 1,5 file 
(soit 3 000 véhicules/h), nous 
pouvons donc en déduire le nom- 
bre de caisses à mettre en œuvre 
pour satisfaire le débit moyen 
d'arrivée, soit 3 000/180 = 
17 caisses. 


Il ne reste plus qu'à observer 
l'influence d'une telle décision sur 
le trafic. 


Entrée des données : 
— visualisation de l'histogramme — attente de 
traitement, 
— arrivées ou traitements —+ multiples, 
— intervalles d'arrivée —> Poissonnien: 
*_ moyenne, écart type : 1.8, 1, 
+ centrage de la moyenne: -2, 
— nombre d'arrivées simultanées —+ Gaussien 
(moyenne, écart type : 1.5, 0.5), 
- temps de traitement — aléatoire (borne infé- 
rieure, borne supérieure : 15, 30), 
— nombre de traitements simultanés — fixe {va- 
leur : 17), 
— nombre de voitures à simuler : 1 000. 











Résultat : maximal moyen 
— nombre de voitures en attente . 24 
— temps d'attente des voitures … 365 125 
— temps d'attente de l'ensemble 
des caisses 1s 0 
— temps moyen par voiture ……., 1,85 
‘soit 2 000 véhicules/h 
— temps total pour 
1 000 voitures .…. 17605 
soit 30 min 
— taux d'utilisation de l'ensemble 
des CAISSES 100 % 





Bien qu'ayant une capacité de 
traitements en moyenne infé- 
rieure aux arrivées (traitements 
22,5/17 = 1,3 s/voiture, 
contre 11811145 = 
1,2 s/voiture), nous observons 
une file d'attente négligeable 
(26 voitures pour 17 caisses) 
d'où la réalisation d’autres 
essais (tableau 1). 

Le temps d'attente des cais- 
ses et le taux d'utilisation ne 
sont pas pris en compte, car le 
programme considère l'ensem- 
ble des caisses comme un tout 
et le fait qu'une seule soit utili- 
sée vaut pour l'ensemble, ce 
qui, dans cet exemple d'utilisa- 
tion, n'est pas représentatif (les 
cas d'une étude de stock ou 
d'utilisation machine, par exem- 
ple, correspondent mieux à ce 
programme). 

On peut constater qu'au-delà 
de 17 caisses, le nombre de 
voitures et les temps sont sta- 
bles (pas de différences signifi- 
catives). Par contre, si l'on dimi- 
nue le nombre de caisses, on 
observe une augmentation des 
files d'attente immédiate (en 
nombre et en temps) sauf pour 
le débit (temps pour 1 000 voi- 
tures) où l'augmentation n'ap- 
paraît significative qu'à partir de 
11 caisses. 





Tableau 1 


Nombre de caisses 







Nombre de voitures maximal 


en attente moyen 
Temps d'attente maximal 
des voitures moyen 






Temps total pour 
1 000 voitures 
len secondes) 


Tableau 2 





Nombre de voitures maximal 





en attente moyen 
Temps d'attente maximal 
des voitures moyen 





Temps total pour 1 000 voitures 
(en secondes) 





Nous pouvons envisager l'hy- 
pothèse de douze caisses plus 
en détail et voir les différents 
résultats obtenus (tableau 2). 


Aucun bouchon à signaler 
(dans le pire des cas, treize voi- 
tures par caisse). Oui, me direz- 
vous, mais la simulation porte 
sur 1 000 voitures : qu'en sera- 
t-il pour 10 000, 100 000 ? En 
d’autres termes, la file d'attente 
était-elle stabilisée ? 

Pour le vérifier, deux possibili- 
tés sont offertes : 


— regarder l'état de la file pen- 
dant la simulation et observer 
que les plus fortes valeurs ne 


|w] sx] x 
| 23) 23| 23| 2] 2 132 
LA brel E CAT AS 0 ON 1 #7 
30 30 
12 12 


67 95 111 60 146 103 67 

43 54 61 28 73 43 35 

119 170 228 108 148 275 195 

78 100 116 50 64 141 80 
Ce fr fe 





DONNEES REINE 
AE 
IHOOBEE 
12 16 39 84 | 224 | 257 
















sont pas en fin de simulation ; 


— Ou, moins contraignant, vi- 
sualiser « l'histogramme des:at- 
tentes de traitements » et véri- 
fier que les plus forts 
pourcentages ne coïncident pas 
avec les plus longues attentes. 


Dans les simulations précé- 
dentes, seule la sixième peut 
laisser des doutes à ce sujet. 
Conclusion : douze caisses peu- 
vent être considérées comme le 
seuil à partir duquel la moindre 
augmentation de trafic crée un 
bouchon. 


Gérard Nave 








H h r. N o nombre d'individus traités 
Tableaux des principales variables N1 : nombre d'arrivées simultanées 
w N2 ; nombre de traitements simultanés 
I. ARRIVÉES FILE : nombre d'individus en attente 
ITARIV intervalle d'arrivée k M 4 total des individus ayant attendu 
VAR$ type de variation de l'intervalle d'arrivée MN ::1 nombre d'événements 
AVS : type de variation du nombre d'arrivées smultanées V. DATE 
AV : nombre d'arrivées simultanées moyen MT 
DATE date du dernier événement 
Il. TRAITEMENTS . PEVENT (1) date du prochain événement = arrivée 
TTRAIT temps de traitement PEVENT (2) date du prochain événement — fin de traitement 
VTR$ type de variation du temps de traitement ! FILE (N) date d'arrivée des individus en attente 
TR$ : type de variation du nombre de traitements simultanés INOC date du début d'inoccupation 
TR î nombre de traitements simultanés moyens 
: VI. TEMPS 
I. VARIABILITÉ : ATTENTE temps d'attente total 
MS : choix des arrivées (ou traitements) simples ou multiples TINOC temps d'inoccupation total 
VR$ : type de variation 
VR x numéro de variation VII. HISTOGRAMME < ( 
0 ; affectation des calculs de variation HI ' choix de l'histogramme {arrivée ou traitement) 
BI ; borne inférieure TX (XI) nombre d'attentes ayant la même valeur 
BS : borne supérieure X valeur de l'attente — adresse 
MO : moyenne T _{X) : nombre d'attentes par classe 
ET k écart type MAX û valeur maximale d'attente 
DE :  décentrage de la moyenne wW : diviseur pour reclassement des adresses 
D : nombre de classes 
IV. EFFECTIF ; C d intervalle de classes 
EFFPOP effectif de la population EC : limite supérieure de classe 
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Première parution : L'Ol n° 5 


© MD UNTS 





votre argent VOUS intéresse, 
intéressez-vous aux Intérêts 





Que pensez-vous d'une société 
de ventes par correspondance qui 
vous propose, pour un objet de 
1 490 FF, les facilités de paiement 
suivantes : 


. 384 FF comptant 
. 12 mensualités de 112 FF. 


Cette société pratique, en fait, un 
taux d'intérêt annuel de 37,6%... !! 
et que pensez-vous de cet orga- 
nisme de crédit qui vous accorde un 
prêt de 1000FF payable en 12 
mensualités de 95,82 FF sans an- 
noncer sur son contrat le taux d'in- 
térêts qu'il pratique. et qui est en 
réalité de 26,6 %. 


L'automobile que vous voulez 
acheter coûte 30 000 FF. 
. La société X vous propose un cré- 
dit en 36 versements de 1 115 FF. 
. La société Y, elle, propose un paie- 
ment comptant de 7 020 FF et 36 
versements de 920 FF. 


Dans les deux cas, le total des in- 
térêts versés est le même 
(10 140 FF). Pourtant le taux d'inté- 
rêt de la société X est de 20 %etce- 
lui de la société Y de 25,5 %. Inté- 
ressant, n'est-ce-pas ? 


Banques, organismes de cré- 
dit 2... vous pouvez maintenant dé- 
cider « Basiquement ».… 


Le programme ci-contre vous 
permettra de calculer avec préci- 
sion le taux d'intérêts composés an- 
nuel d'un emprunt, connaissant : 


. la somme empruntée 
. le nombre de mensualités 
. la valeur de chaque mensualité. 


Le taux d'intérêt composé n'est, 
en principe, pas calculable directe- 
ment. Dans le programme ci- 
contre, il est fait appel à la méthode 
d'approximation de Newton, utili- 
sée pour la détermination appro- 
chée des racines d'une équation de 
nature et de degré quelconques. 


La méthode appliquée est la sui- 
vante : 


. recherche d'une valeur grossière- 
ment approchée de la racine; 

. affinage de la valeur de la racine ; 
. Calcul d'une nouvelle approxima- 
tion, et ainsi de suite. Les approxi- 
mations successives se resserrent 
jusqu'à obtention de la précision 
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voulue (écart entre 2 valeurs suc- 
cessives). 


Cette méthode , bien que n'étant 
pas universellement applicable 
(l'approximation initiale doit être 
suffisamment près de la racine), 
s'avère en pratique satisfaisante 
pour les problèmes de calcul de taux 


d'intérêt. 


Le PRINT USING du programme 
peut évidemment être remplacé par 
un PRINT ordinaire, dans le cas où 
ce premier n'existe pas dans votre 
BASIC. 


Alain Girpin 


rm 


RUN 


CALCULS DU TAUX D'INTERETS COMPOSES 


— NOMBRE DE MENSUALITES ? 12 


— VALEUR DE LA MENSUALITE ? 112 


— VALEUR DE L'EMPRUNT ? 1106 


— > TAUX D'INTERET ANNUEL = 37.60% 


AUTRE CALCUL ? OUI 
— NOMBRE DE MENSUALITES ? 36 


— VALEUR DE LA MENSUALITE ? 1115 


— VALEUR DE L'EMPRUNT ? 30000 


— > TAUX D'INTERET ANNUEL = 20.01 % 


AUTRE CALCUL ? NON 
REA 


DY 
1Q REM PROGRAMME DE CALCUL DES INTERETS COMPOSES 


20 REM AUTEUR : ALAIN GIRPIN 


30 REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 
40 CLS : PRINT ‘’--- CALCULS DU TAUX D'INTERETS COMPOSES ::-" 


50 REM 


69 PRINT : GOSUB 150: REM ENTREE DES DONNEES 
70 GOSUB 220: REM CALCUL APPROXIMATION 

80 GOSUB 280: REM RECHERCHE VALEUR EXAUTE 

90 GOSUB 370: REM EDITION DU TAUX D'INTERETS 


1@0 REM 


110 REM DEMANDE SI AUTRE CALCUL 
120 PRINT ‘’ AUTRE CALCUL ‘; : GOSUB 9090 
1301IF R$ = ‘’O' THEN 69: REM AUTRE PROBLEME 


40 END : REM FIN DU PROGRAMME 


1 

150 REM 

160 REM ENTREE DES DONNEES 
17OREM 


180 INPUT ‘’-NOMBRE DE MENSUALITES ”; N 
19 INPUT ‘’-VALEUR DE LA MENSUALITE ”; V 
200 INPUT ‘’-VALEUR DE L'EMPRUNT ‘: E 


210 RETURN 
22OREM 


230 REM CALCUL DE L'APPROXIMATION 


240 REM 

250R3=E/V 
260R2=1/R3-(R3/N12) 
27Q RETURN 

280 REM 


290 REM RECHERCHE VALEUR EXACTE 


300 REM 
31OR5 = (R2 + 1)1-N 
320X=R3"R2-1+R5 


33OY =(R5 *(N/(1/R2+1)+1)-1)/R2 


340R2=R2+X/Y 

350 IF ABS (X) >1E - 6 THEN 319 
36Q RETURN 

370 REM 


38Q REM EDITION DU TAUX D'INTERET 


390 REM 


400 PRINTUSING ‘’ - >TAUX D'INTERET ANNUEL =###,##% ; R2 * 1200 


410 RETURN 
9000 INPUT R$ : REM OUI OÙ NON? 
9010 RS = LEFTS (R$,1) 


9920 IF R$<>'" O ‘* AND R$<>'"'N ‘" THEN PRINT O OU N ";: GO TO 9000 


9030 RETURN 





Tout a commencé 
par la lecture 
des petites annonces 


d'appartements. 

Ceux qui me plaisaient 
semblaient 

vraiment 


hors de mes moyens 
financiers ; 

et ceux que je pensais 
pouvoir acheter 

étaient nettement 

trop petits. 

La seule solution 

était 

d'acheter 
un appartement 
de taille convenable, 

mais en mauvais état, 

et de répartir 
petit à petit 
les travaux 
au cours du temps. 
Mais ceci revenait 


à poser 

périodiquement 

la question : 

combien 

puis-je emprunter, 
et donc 

rembourser 


chaque mois, 

sans en être réduit 

à ne nourrir 

ma petite famille 

que de riz 

et de lentilles ? 

J'ai ainsi entrepris 

de faire 

l'étude détaillée 

des dépenses familiales 
et des recettes ; 

pour ces dernières, 
étant salarié, 

pas trop de problèmes, 
ni d'imprévu : 


salaire mensuel : 


auquel il faut ajouter 

les allocations familiales 
plus des «primes » 

plus ou moins 
périodiques. 





gestion familiale 


quand 
l'ordinateur 
gère 
votre trésorerie 





Avant de planifier des dépenses 
«extraordinaires » il faut commen- 
cer par bien connaître les dépenses 
« obligatoires » qui sont variées tant 
en montant qu'en périodicité. 


Une étude du passé récent est 
très instructive et permet de chif- 
frer et de dater les divers éléments. 


. L'habitation : un loyer (ouunrem- 
boursement d'emprunt) plus les 
charges et les impôts associés (il y 
en a 4 ou 5 pour un propriétaire). 

. L'alimentation : les achats, dans 
les diverses boutiques, sont assez 
difficiles à apprécier exactement, 
surtout a posteriori lorsqu'ils ont été 
réglés en argent liquide. Mais, de- 
vant l'importance du montant rela- 
tif, il faut examiner très soigneuse- 
ment le montant de ce poste (ne pas 
oublier les prix des repas de can- 
tines d'entreprise ou d'école). 


. Les services: téléphone, EDF- 
GDF, éventuellement eau; en tout, 
au moins une facture par mois, plus 
la femme de ménage. 


. Les vacances : trajets, logements 
sur place, nourriture pour les divers 
éléments de la famille (les enfants 
et les parents ne suivent pas tou- 
jours le même itinéraire). 


. Les vêtements : pour chacun des 


membres de la famille. Les gros 
achats réglés par chèques sont fa- 
ciles à analyser. Les achats cou- 
rants réglés en liquide, où les 
achats dans les grandes surfaces, 
risquent de se retrouver englobés 
dans le budget alimentation. 


. L'’auto (ou les autos): achat (ou 
remboursement des mensualités), 
garage, entretien (essence, grais- 
sage, pneus...). : 


. Les enfants: montant des pen- 
sions, de la rentrée des classes (un 
pic !). 


. Les sports : clubs sportifs, maté- 
riel et trajets (chaussures, vête- 
ments, skis, bateaux). 


. Les objets de loisir: livres, re- 
vues, journaux, musique, brico- 
lage, cadeaux (Noël et anniver- 
saires). 


. Et ne pas oublier les impôts: ils 
sont assez faciles à repérer, plus 
difficiles à prédire, surtout au-delà 
de 12 mois (les montants croissent, 
les dates se rapprochent du début 
de l'année). 


Quand on fait le cumul de toutes 
les dépenses, on voit apparaitre 
certains pics à des dates fixes, ce 
qui confirme que la simple gestion 
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Première parution : L'OI n° 2 


mensuelle amène inexorabtement 
des problèmes de trésorerie. |l faut 
néanmoins s'arranger pour avoir 
toujours un solde créditeur et, si l'on 
est très prudent, supérieur à une 
certaine somme en cas d'ennuis 
imprévus: accident ou maladie 
grave... 





Des prévisions 
en général 
difficiles 





Ainsi, par un dépouillement soi- 
gneux des diverses opérations en- 
registrées sur les comptes postaux 
ou de chèques, il est possible de 
connaître les dates et les montants 
des divers éléments, tanten recette 
qu'en dépense. On peut donc, sans 
trop de difficulté, faire la liste etl'é- 
chéancier de toutes les dépenses 
que l'on est plus ou moins obligé 
d'effectuer, ainsi que des res- 
sources dont on va disposer : avec 
ou sans calculette (mais sa pré- 
sence diminue le nombre d'er- 
reurs |) on peut obtenir une assez 
bonne prévision — tel jour il doit 
rentrer telle somme, tel jour tant. 
— et, ainsi, connaître le montant 
disponible en fonction du temps. 


En opérant ainsi, on s'aperçoit 
vite qu'à côté des dépenses claire- 
ment répertoriées, il y a une foule 
de petites dépenses qui se font à 
longueur d'année et n'apparaissent 
dans aucun compte car elles sont 
individuellement faibles : tickets de 
métro, courrier, journaux, net- 
toyage des vêtements, cinéma, mu- 
sées, expositions, taxis, quêtes, 
pourboires divers. 


Toutes sommes qui correspon- 
dent généralement à des dépenses 
en argent liquide, dont il faut ex- 
clure les dépenses d'alimentation, 
sinon on arrive à une somme impor- 
tante difficile à maîtriser. 


Pour toutes ces dépenses, un 
montant forfaitaire journalier s'a- 
vère une bonne solution. 


Ceci se fait en ajoutant à toutes 
les dépenses énumérées ci-dessus 
une dépense «constante», un peu 
analogue à une petite fuite dans le 
montant des disponibilités, qui per- 
met de serrer la réalité de façon 
réaliste, mais ne simplifie pas les 
calculs (combien y-a-t-il de jours du 
23 mars au 7 avril?) 


En opérant ainsi, on obtient des 
résultats assez bons, d'autant meil- 
leurs que les hypothèses sont plus 
précises. 
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Connaissant les ressources et dé- 
penses « normales », on peut alors 
aborder l'étude des dépenses «ex- 
traordinaires » — ou d'une variation 
des ressources —. Dans le cas cité 
plus haut, il s'agit essentiellement 
des travaux d'aménagement du lo- 
gement une fois que l'on y est ins- 
tallé. 


C'est alors que les calculs devien- 
nent vraiment fastidieux, car il est 
nécessaire de faire plusieurs hypo- 
thèses avant d'arriver à une solu- 
tion acceptäble. Par ailleurs, les 
«conditions environnantes » évo- 
luent : on renonce pour cette année 
à refaire la cuisine, ce que l'on avait 
prévu en juin (car le réfrigérateur et 
la machine à laver sont à bout de 
souffle)et l'on va profiter des ré- 
ductions du salon des Arts ména- 
gers (en mars). 


Mais va-t-on régler comptant ou 
bien en 6 ou 12 mensualités ? Il faut 
alors modifier tous les calculs enne 
prenant pas en compte les mon- 
tants correspondant à la cuisine, 
mais ceux correspondant aux appa- 
reils ménagers, avec deux ou trois 
séries d'hypothèses. 


Et là, on s'aperçoit qu'il est vrai- 
ment pénible de gérer au mieux un 
budget toujours à la limite de l'équi- 
libre. 





Laissez 
la machine 
faire les calculs 





C'est à cause de cette deuxième 
phase que j'ai mis la prévision bud- 
gétaire sur mon ordinateur indivi- 
duel, en adaptant la méthode qui 
avait fait ses preuves à la main, 
mais en faisant faire par la machine 
toute la partie fastidieuse du tra- 
vail : les machines sont faites pour 
ça ! 


Les données qui sont immuables, 
ou tout au moins que l'on peut 
considérer comme telles car on n'y 
peut rien, sont stockées sur cas- 
sette une fois pour toutes (en lesin- 
troduisant avec un grand soin, car il 
ne sera plus possible de les modi- 
fier) : ce sont les données détaillées 
ci-dessus. 


L'idée de base est de pouvoir faire 
des simulations successives. du 
budget prévisionnel en introduisant 
au clavier les hypothèses qui ris- 
quent de varier puis, lorsque l'on a 
choisi une politique, d'en enregis- 
trer les éléments sur la cassette, et 
ainsi de suite. 


Pour cela le programme débute par 
une démande de conditions ini- 





NOUS POUR RONS 


TE. L'OfFRIR LE 
26 HOVEMBRE 1382 
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L'ordinateur bouc-émissaire. 





tiales, date à partir de laquelle on 
veut simuler (inutile de chercher à 
simuler le passé) et le montant dis- 
ponible à cette date (ce qui est une 
remise à jour très pratique des 
comptes). 


Puis, si l'on dispose d'une cas- 
sette contenant des données déjà 
stockées, on lit cette cassette où 
l'on trouve, pour chaque opération, 
son nom, sa date, son montant et Sa 
nature (recette ou dépense). Au 
cours de cette lectureonélimine les 
enregistrements correspondants à 
une date antérieure à la date mini- 
mum fournie au début. Les autres 
données sont stockées en mémoire. 


On ajoute alors au clavier des 
opérations supplémentaires, que 
l'on peut ou non ajouter sur la cas- 
sette à la suite de celles déjà lues, ce 
qui permet d'étudier des hypo- 
thèses successives (que l'on ne 
stocke pas sur cassette) puis un 
choix (que l'on stocke). 


On peut, de même, étendre le 
champs des prévisions en ajoutant 
les recettes et les dépenses pour 
des périodes de temps plus loin- 
taines ; une application de cette mé- 
thode est la création de la première 
cassette : partant de rien, on ajoute 
les premières opérations. 


Enfin, on introduit la valeur de la 
dépense «constante » définie plus 
haut par son montant mensuel, si 
l'on désire en introduire une. 


Tous les éléments sont alors dans 
la mémoire de l'ordinateur, qui trie 
les enregistrements en fonction de 
leur date, puis effectue tous les cal- 
culs et affiche les résultats. 





A la fin de ce cycle, l'utilisateur 
connait clairement les consé- 
quences prévisibles de ses hypo- 
thèses. Et la réalité confirme sou- 
vent les prévisions ainsi faites, 
dans la mesure où cette prévision 
n'est pas à trop long terme (au-delà 
de 18 à 20 mois il faudrait tenir 
compte de diverses variations de 
prix) et surtout dans la mesure où 
les données introduites sont sé- 
rieuses. 


Comme il s’agit de la gestion pré- 
visionnelle du budget d'un ménage, 
les notions telles que les amortisse- 
ments n'ont pas leur place (si ce 
n'est sous la forme indirecte du 
montant des remboursements cor- 
respondant aux emprunts faits). 





Des prévisions 
de six 
à douze mois 


Le programme a été tout d'abord 
écrit sur un Tandy TRS 80 (4 K, Ba- 
sic Level 1) puis il a été transformé 
pour un TRS-80 avec BASIC Level II. 
C'est ce dernier programme qui est 
décrit ici. Je vous fait grâce de la 
liste de la première version qui 
comportait de nombreuses acro- 
baties, nécessaires pour faire tour- 
ner le programme en Basic 
Level 1. 


Parmi les contraintes, les deux 
plus sévères sont la taille mémoire 
et le fait de ne disposer que d'une 
unité de lecture-écriture sur cas- 
sette. La cassette n'ayant pas de re- 
tour arrière sur un enregistrement 
(le « BACKSPACE » de certains lan- 
gages) il n'est pas possible d'avoir 
un enregistrement de fin de fichier. 


On en est réduit à connaître le 
nombre d'enregistrements déjà 
écrits, à leslire, et à passer en mode 
enregistrement sans modifier la po- 
sition de la cassette pour allonger le 
fichier, et enfin à recueillir soigneu- 
sement le nouveau nombre total 
d'enregistrements pour le passage 
suivant. 


La taille mémoire limite le nom- 
bre d'opérations que l'on peut pren- 
dre en compte. Pour un TRS 80 4K 
Level 1, on arrive à une soixantaine 
d'enregistrements, soit 10 mois à la 
cadence de 6 par mois. En Level II, 
avec la même taille mémoire, le fait 
de conserver les noms des opéra- 
tions conduit à ne pouvoir en traiter 
que 35 à 40, soit une prévision de 6 
mois, ce qui est faible. (En passant à 
16 K,il n'y a aucun problème pour 
traiter une prévision raisonnable). 


Dans les deux programmes don- 
nés ici, le manque de place mé- 
moire a entraîné la suppression de 
tous les commentaires, ce qui rend 
le texte difficile à comprendre. De 
même, de nombreuses variables 
sont réutilisées, ce qui économise la 
place, mais diminue la clarté, et doit 
être évité de façon générale. 


Trois tableaux C, D, et M contien- 
nent, pour chaque opération, son 





nom,sa date et son montant respec- 
tivement. Le nom est une chaîne li- 
mitée à 16 caractères, la date est 
condensée sous la forme d'un en- 
tier (positif et inférieur à 22 000), le 
montant est sous la forme d'un 


‘nombre en virgule flottante avec 


signe (+ signifiant recette, — dé- 
pense). 


Les ordres commençant par des 
numéros inférieurs à 500 forment 
le programme principal, les sui- 
vants divers sous-programmes. 





Six 
sous-programmes 





De 600 à 630, il y a un sous-pro- 
gramme créant la date composée à 
partir du jour, du mois etde l’année. 
Cette date composée est analogue à 
celle obtenue en mettant bout à 
bout les deux derniers chiffres de 
l'année, du mois et du jour (exemple 
pour 15 septembre 1978,on ob- 
tient : 780915). On obtient ainsi des 
nombres qui croissent dans l'ordre 
des dates, ce qui facilite le tri. 


Pour pouvoir faire tenir ceci dans 
une variable entière (et gagner ainsi 
de l’espace mémoire) il ne faut pas 
dépasser 32 767. Pour cela l'année 
est remplacée par sa valeur moins 
78. (Ainsi le 1°" janvier 1978 de- 
vient : 000101 et le 30 décembre 
1999 : 211230). Pour gagner de la 


place en mémoire tous les mois ont 
été supposés égaux, et de 30 jours. 


En 650 figure un sous-pro- 
gramme effectuant l'opération in- 
verse, c'est-à-dire redonnant l'an- 
née, le mois et le jour à partir de la 
date composée. 


En 680 figure un sous-pro- 
gramme fournissantle titre de l'édi- 
tion finale de l'évolution de la tréso- 
rerie. 


En 690, un sous-programme im- 
prime une ligne d'étoiles (*). Lepro- 
gramme d'édition finale, sur lequel 
nous reviendrons plus loin, couvre 
les lignes 700 à 870. 


En 950-960 on trouve le sous- 
programme imprimant une ligne du 
tableau d'évolution de trésorerie. 


De 9000 à 9 020 figure le sous- 
programme habituel de vérification 
d'une réponse OUI ou NON. 





Revenons 
au programme 
principal 





. Jusqu'en 50: obtention de la 
date minimum (E)et du montantini- 
tial MI) ainsi que diverses initialisa- 
tions 

. de 60 à 120: lecture du contenu 
d'une cassette provenant d'un trai- 
tement précédent ; au cours de la 
lecture, on élimine. les opérations 
antérieures à la date minimum 
(H<E), en ne les conservant pas en 
mémoire dans les tableaux des 
noms (C), des dates (D) et des mon- 
tants (M). Les enregistrements re- 
tenus sont affichés au fur et à me- 
sure de la lecture sur l'écran, ce qui 
fait patienter l'utilisateur et lui per- 
met de contrôler le bon déroule- 
ment des opérations. 

. de 150 à 310 : acquisition au cla- 
vier et traitement des données rela- 
tives à des opérations supplémen- 
taires, acquisition et contrôle entre 
190 et 220, stockage en mémoire 
en 230, et(éventuellement) sur cas- 
sette en 240. Les ordres 280 à 310 
donnent le nombre total d'enregis- 
trements stockés sur la cassette, 
avec un cadre spectaculaire pour 
éviter qu'il ne passe inaperçu. (On 
peut gagner de la placeen mémoire, 
au détriment de la sécurité en rédui- 
sant l'ampleur de ce cadre). 

. de 350 à 370 : ilya l'introduction 
de la « dépense constante ». 

. en 400 et 410 sonteffectuées di- 
verses initialisations pour préparer 
l'édition des résultats. 

. en 420 à 450 est effectué le tri 
des arguments dans l'ordre des 
dates croissantes : le tri détermine 
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… 


oo 


16 DEFSTR A-C:DEFINTD-L, R-Z 
20 DIMP(12?, CC(58), DC50), MC58) 
30 PRINT"PREVISION BUDGETAIRE" : PRINT 


40 PRINT"DATE MINIMUM À PRENDRE EN COMPTE" : GOSUB608 

S@ INPUT"MONTANT DISPONIBLE À CETTE DATE"; MI :E=H: J=0:L=0 :PRINT 

60 PRINT"AVEZ-VOUS UNE CASSETTE À LIRE"; -GOSUB9008 : Z#=R$. IFZ#="N"THEN158 
7 PRINT'MONTEZ LA CASSETTE SUR LE MAGNETOPHONE ET POSITIONNEZ EN LECTURE" 
80 INPUT'NOMBRE TOTAL D'ENREGISTREMENTS DEJA ECRITS";L CLS 

96 GOSUB688 :FORI=BTOL-1 : INPUTH-1, C(1), DJ), MCJ) :H=DCJ) : IFHCETHEN120 

108 GOSUB650 : N=M< 3) : IFN>=@THENA="CR"ELSEA="D" :N=-N 


116 PRINTUSING" % 
1206 NEXTI 


MU HHNARRNNAE 721; CT), v, X, MN, A: J=J+1 


158 PRINT"VOULEZ-VOUS AJOUTER DES DONNEES", : GOSUB9606 ; IFR$="N" THEN358 
160 PRINT"DESIREZ-VOUS LES CONSERVER SUR CASSETTE"; .GOSUB9068 T$=R# 
170 CLS: PRINT : IFZ$="N"ANDT$="O"THENPRINT"MONTEZ UNE CASSETTE VIERGE" 
180 1FT#="O"THENPRINT"APPUYEZ SUR PLAY ET RECORD" 

198 INPUT"NOM DE L'OPERATION"; A R=LEFT$(A, 16) PRINT"SA DATE": GOSUE688 
208 IFHCETHENPRINT'OATE ANTERIEURE AU MINIMUM": GOTO198 


219 INPUT" MONTANT"; N° N=ABS CN) 


220 INPUT"CREDIT OÙ DEBIT";B:1IFR="CREDIT"THENQ=1 


ELSEIFB="DEBIT"THENG=-1 

ELSE229 

230 N=N#G DCJ)=H:MCJDEN CCJ)=A: J=J+1 
248 1FT$#="0"THENPRINTY-1, A, H, N:L=L+#1 


258 PRINT"AVEZ-VOUS D'AUTRES DONNEES" : GOSUB9988 : IFR$="0"THEN198 


270 IFT#="N"THEN35@ 
288 GOSUB698 


290 PRINT"RETENEZ SOIGNEUSEMENT LE NOMBRE TOTAL D'ENREGISTREMENTS" 
308 PRINT"222222222222>222 IL EST DE"L"CCC£CCCECLCLEE" 


318 GOSUB698 


350 PRINT"VOULEZ-VOUS INTRODUIRE UNE DEPENSE CONTINUE"; : GOSUB9888 : I$=R$ 
368 IFU$="C"THENINPUT"SON MONTANT MENSUEL*; N:Q=-ABSCN)/38 


488 H=Ë : GOSUB650 : GOSUB689 

418 PRINT@67, ; :PRINTUSING"MONTANT INITIAL 
428 1=J-1:V=0:FORJ=@TOI-1 :H=DCJ) 

47@ FORK=J+1T01 E=DCK) 


LL 74. 74] 


FAMANNABNN TS: v, X, M, MI 


448 IFHDETHENDCJ)=E : DCKD=H: H=E :N=MCJ) :MCJDEMCK)D :MCKIEN: RECCJ) CC JD=CCK):CCKI=A 


458 NEXTK:E=U:F=X:G=Y:GOSU8708 : NEXTJ 
468 A=CCI) :H=DCI) :N=MC1):E=H:F=X:G=Y : GOSUB708 
508 END 


668 INPUT"JOURÇENTRE 4 ET 38)"; Y:1FYC10RY>38THEN6OR 
618 INPUT'MOISCENTRE 1 ET 12)"; X: IFXC10RX212THEN618 
629 INPUT'ANNEECENTRE 78 ET 99)"; MU: IFH<780RW>99THEN628 


630 H=W-78 H=W*10000+X+190+Y : RETURN 


650 W=H/19006 :V=H-W10008 X=1/108 : Y=Y-X#100 : H=W+78 : RETURN 


689 CLS :PRINT@B, "INTITULE"; :PRINT@24, "DATE"; 
699 FOR19=11061 PRINT"#"; :NEXT19: PRINT : RETURN 
78@ GOSUB6S8 : IFU$="N"THEN728 

718 N=CW-E)#368+CX-F)#20+v-G: MI=MI+N#Q 

720 MI=MI+MCJ) : IFJ212THEN808 

748 PCJ)=MI :L=J+#1 S=J:R=J GOSUB9S : GOTO878 
808 IFVC>OTHENSSA 


PRINT@37, "MONTANT"; 


PRINT@48, "SOLDE" : RETURN 


810 FORL=8T07 :P(L)=P(L+5) :NEXTL :PRINT"SUITE"; : G0SUB9168 : GOSUB688 
828 FORL=8TO7 :S=J-8+L : H=D(5) : GOSUB6S8 : R=L : GOSUB9S0 : NEXTL 


834 H=D(S) : GOSUB650 


850 L=8+V:R=L PCLI=MI : S=JGOSUB9S8 : V=V +1. IFV=STHENV=0 


87@ RETURN 

950 PRINTR64+64%L, ; ; 

968 PRINTUSING"Z % 
9898 INPUTRS 


MR/NU/NN  HANENAMNNN RAMAMMANAN"; CCS), V, X: M, MCSD, PCR) : RETURN 


9018 IFR$<C>"O"ANDR$CD'"'N'"THENPRINT"O OU N*:GOTO980 


S@2a RETURN 





successivement la première opéra- 
tion à prendre en compte dans l'en- 
semble des opérations restantes. 
Aussitôt que cet argument est 
obtenu, il est transmis au sous- 
programme d'édition et affiché sur 
l'écran ce qui présente deux avan- 
tages : pour l'utilisateur, il est dés- 
agréable de rester devant un écran 
vide où il ne se passe rien: cette 
méthode morcelle le temps d'at- 
tente; pour l'économie de place 
mémoire : le tableau P qui contient 
les soldes successifs peut être ré- 
duit à la dimension d'un écran (soit 
13 éléments). 

. Le sous-programme d'édition 
est formé de deux parties: la pre- 
mière pour éditer le tableau initial, 
la seconde pour éditer les tableaux 
suivants. La technique d'édition par 
tableaux successifs permet à l'utili- 
sateur d'avoir devant les yeux une 
image stable aussi longtemps qu'il 
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le désire, plus exactement tant qu'il 
n'appuie pas sur la touche ENTER. 
Un recouvrement important se fait 
d'un tableau au suivant, ce qui offre 
l'avantage de pouvoir examiner de 
près ce qui se passe entre deux ta- 
bleaux successifs. Les lignes 700 à 
740 permettent la création du pre- 
mier tableau : les données sont affi- 
chées aussi rapidement que la tech- 
nique de tri les fournit, jusqu'à l'ob- 
tention d'un écran plein. Les lignes 
800 à 870 exécutent la création des 
tableaux Successifs suivants par re- 
prise des huit lignes finales du ta- 
bleau précédent, et affichage de 5 
lignes suivantes au fur et à mesure 
de leur obtention par le tri. 


Les critiques sur ces programmes 
sont de natures différentes suivant 
que l'on considère que l'on travaille 
sur une machine de 4K de mémoire 
vive ou plus. 





Des perfectionnements 
qui dépendent 
de la mémoire 





Avec 4K de mémoire, on peut 
chercher à simplifier l'édition fi- 
nale. On remplace alors les ordres 
700 à 870 par l'édition d'une ligne 
{analogue aux ordres 950 et 960) 
avec un compteur pour arrêter l'édi- 
tion toutes les 10 lignes par exem- 
ple (sinon le défilement trop rapide 
ne permet pas de consulter les ré- 
sultats), la reprise se faisant en ta- 
pant sur la touche ENTER. 


Ceci permet aussi de supprimer 
tout le tableau P. On peut ainsi ga- 
gner en nombre maximum d'opéra- 
tions traitées, environ 13 opéra- 
tions de plus. 


On peut aussi diminuer la taille du 
cadre utilisé lors de l'affichage du 
nombre total d'enregistrements fi- 
gurant sur la cassette : mais un ca- 
dre moins spectaculaire augmente 
les chances d'oubli de ce Ex 
nombre d'enregistrements stockés 
sur la cassette. Il faut choisir en- 
tre la sécurité et la performance. 





Avec plus de mémoire on peut 
ajouter un certain nombre de per- 
fectionnements : 

. Un générateur automatique des 
opérations à répétition périodique 
(cas d'un remboursement mensuel 
par exemple), ceci évitant d'avoir à 
refrapper la même chose pour tous 
les mois. 

. La possibilité, à la fin d'une exécu- 
tion, de vider la totalité des opéra- 
tions contenues en mémoire sur la 
cassette afin de simplifier les opé- 
rations après un choix de solution. 
. Visualisation des fluctuations 
sous forme d'un graphique. 

. Prise en compte de la longueur 
exacte des mois, tant dans la saisie 
des dates que dans le calcul des dif- 
férences de dates. 

. Trouver et afficher la date où le 
montant du solde est le plus faible, 
et la valeur de ce montant. 





Christophe Disabeau 





lundli, 


marali, 
vous rappelez-vous le 


mercredi, jeudi, F1. 


11, 


jour 


de votre naissance? 


20 lignes de basic pour vous rafraîchir la mémoire 


L'article qui suit vous présente un petit programme 


en langage BASIC qui répondra à cette question, 
ainsi qu'à celles-ci par exemple : 


— Quel était le jour de la prise de la Bastille ? 
— Edmond Rostand dit dans Cyrano de Bergerac : 
«Et samedi vingt-six (septembre 1655), une heure 


avant le dîné, 


«Monsieur de Bergerac est mort assassiné. » 
Cet événement peut-il être authentique ? 
Mais d'abord, examinons quelques notions de base. 





Nous vivons depuis l’année 1582 
sous le règne du calendrier grégo- 
rien. Cette année-là, et afin de rat- 
traper l'avance créée par le précé- 
dent système de calendrier (julien 
fondé par Jules — d'où le nom — 
César), le pape Grégoire XII — dit 
Le Grand — décida que le lende- 
main du jeudi 4 octobre serait le 
vendredi (ouf !).. 15 octobre! De 
plus, afin de maintenir l'année 
moyenne à une valeur plus proche 
de l'année tropique (365,2 425 


| GLOSSAIRE 


Aûaèd tropique : temps sépa- 


rant deux passages consécutifs 
du soleil au tropique. Elle vaut 
365, 24220, jours. 


Année séculaire : année Sont le 
millésime se termine par deux 
zéros. (RXEMRIe 
2000... 


_ 1800,1900, 


Année bissoktile” année dont le 
millésime est divisible’ "LE 4 
Dee 1976: 1980. JS 


| BIBLIOGRAPHIE 


ile à édéndrer Paul Couderc, col- 
lection «Que Sais-je». Pluri- 
sciences, 1979, Encyclopedia 
‘Universalis: frire rire 





jours contre 365,25 dans le sys- 
tème julien), il fut décidé que les 
années séculaires ne seraient plus 
bissextiles, sauf celles dont la 
valeur est multiple de 400, ce qui 
fait gagner 3 jours tous les 400 
ans. Evidemment, la perfection 
n'étant pas de ce monde, le présent 
calendrier accusera encore trois 
jours de trop. mais d'ici 10 000 
années... Le programme proposé 
devra alors être modifié en consé- 
quence... 

Bien entendu, la mise en usage 
de la réforme grégorienne ne fut 
pas uniformément acceptée par 
tous les pays. Ainsi, en France, le 
retrait des 10 jours fautifs eut lieu 
entre le 9 et le 20 décembre 1582, 
aux Pays-Bas entre le 14 décembre 
et Noël, l'Allemagne et la Suisse 
(catholique) acceptèrent la réforme 
deux ans plus tard, la Pologne 4 
ans, la Hongrie 5 ans et l’Angle- 
terre 170 ans, soit en 1752... mais 
il leur fallut sacrifier non pas dix, 
mais onze jours... ce qui donna lieu 
à de vives protestations | Il est vrai, 
nous rappelle Paul Couderc, que le 
début de la même année avait été 
avancé de 3 mois! 

Revenons à notre programme. 

Celui-ci, à partir d'une date intro- 
duite en système julien ou grégo- 
rien, donne deux informations : 

. Le numéro du jour julien : c'est 
une convention astronomique 


représentant le nombre de jours 
écoulés depuis le 1€" janvier 4713 
avant J.-C. (— 4712). Ce nombre 
sert de base au calcul du jour de la 
semaine et permet, en outre, de 
connaître le nombre de jours entre 
2 dates en faisant la différence de 
leurs nombres juliens respectifs. 

. Le jour de la semaine correspon- 
dant à la date donnée. 

Il est à noter que les dates intro- 
duites avant la réforme grégo- 
rienne doivent être données en 
système julien et qu'elles peuvent 
être négatives et remonter jus- 
qu'en —4712 (4713 av. J.-C). 
Dans l'autre sens, elles peuvent 
dépasser notre époque et atteindre 
des dates futuristes. jusqu'à la 
prochaine réforme... 

Pour les amateurs, voici les for- 
mules : 

JD = J + ENT (367 (MP - 1+5)/12) + 
ENT (365,25 (AP + 4712)) +2Z 
avec : 

J = jour, M = mois, À = année 

MP = M +12 si M = 1 ou2 

sinon MP = M 

AP = A—1siM = T1ou2 

sinon AP = A 
2' pour dates juliennes, 
ENT [AP/400] — 

ENT [AP/400] 

pour dates grégoriennes 
ENT [] signifie partie 
entière de X. 

. Jour de la semaine (0 à 6 avec 
O = dimanche, 1 = lundi, etc.) 

JS — 7 X FRAC [(JD - 
1720977)/7] 

(FRAC signifie : partie fractionnaire 
de []). 


Et maintenant: 
. Quel était le jour de la prise de la 
Bastille ? 
— Le 14 juillet 1789 était un 
mardi. 
. Edmond Rostand avait-il raison ? 
— Non! Le 26 septembre 1655 
était un dimanche. 


Z 


Alain Girpin 
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Fiche pratique 


Cette fiche pratique donne le programme annoncé dans l'arti- 
cle précédent qui permet de déterminer, à partir de n'importe 
quelle date, le jour de la semaine correspondant. 





Le jour Julien JD a une valeur de l'ordre de 365 X 
(1978 + 4713) = 2 442 215. Sa valeur s'exprime donc avec 7 chif- 
fres ; on dit que cette valeur a sept chiffres significatifs. 


Un BASIC standard donne une précision insuffisante pour effec- 
tuer les calculs mis en jeu.ici, puisque la précision des calculs en 
BASIC standard est de l'ordre de 6,5 chiffres de précision, alors 
qu'en fait, ici, il en faut beaucoup plus de 7. 


Le programme donné ici est écrit avec le BASIC étendu de Micro- 
soft, qui permet d'effectuer des calculs en double précision, c'est-à- 
dire avec 16 chiffres significatifs. Ceci se fait à condition que l'on 
fasse suivre le nom de la variable (ici, JD et JS) du signe # . Sur le 
PET, la précision est de 12 chiffres significatifs pour tous les cal- 
culs. 


Afin de limiter les erreurs de calcul dûes aux arrondis, on rajoute 
0.001 aux nombres dont on prend la partie entière (lignes 90, 130 et 
140). 


Le sous-programme 130-170 calcule JD à partir du jour J, du 
mois Met de l'année A, suivant les formules déjà données. 


Après l'appel en 60 de ce sous-programme, on peut alors calculer 
en 80 et 90 le jour dans la semaine (0, 1, 2... 5 ou 6). 


Il ne reste plus alors en 100 qu'à lire, par une instruction READ 
exécutée autant de fois que nécessaire, le nom du jour que l'on a 
mis en DATA à la ligne 180. 


L'instruction RESTORE de la ligne 100 a pour effet que le premier 
X$ lu sera toujours DIMANCHE. 





5 

7 
19 
20 
30 
35 
4Q 
59 
6Q 
7Q 
80 
9Q 


REM PROGRAMME DE CALENDRIER 
REM AUTEUR ALAIN GIRPIN 


REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 


PRINT‘ <<<-CALENDRIER->>>" : PRINT:PRINT 

INPUT ‘SYSTEME JULIEN OÙ GREGORIEN': S$ 
IFS$—"'FIN'" THEN STOP 

SÉ—LEFTS (S$,1): IF S$<>"J"" ANDS$ <>"G'’ THEN 30 
INPUT ‘DATE (JOUR, MOIS, ANNEE) : ; J,M,A: PRINT 
GOSUB 130 

PRINT ‘’-- NO DU JOUR JULIEN="; JD # : ‘,", 

JS #= (JD # -1720977)/7 

JS #= INT (7*(JS #-INT(JS #)) + .001) 

RESTORE: FORN=— OTOJS # : READXS$: NEXT N 

PRINT ‘JOUR DE LA SEMAINE= ‘’;X$: PRINT 

GOTO30 

MAN=INT (.6+1/M + .0@1): MP=M +12*MAN: 
AP=A-MAN 

JD #=J+INT ((36/*(MP-1}+5)/12 +.001) + INT (365.25* 
(AP+4712)+.001) 

IFS$—"J" THENJD # —JD #-2: GOTO 170 

JDH -JD+#-INT (AP/100)+INT (AP/400) 

RETURN 


DATA DIMANCHE, LUNDI, MARDI, MERCREDI, 
JEUDI, VENDREDI, SAMEDI 
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système d'information personnel 





rendez-vous 
avec voire 


ordinateur 


grâce à ce programme tout simple 


Chaque jour, je me lève en pensant à tout ce que 
je dois faire dans la journée. et chaque soir, je suis 


fâché avec moi-même. 


Pourquoi ? eh bien, j'ai 


oublié de téléphoner à telle personne... ou bien, je 
n'ai pas pu terminer tel travail... ou bien... Je ne 
sais pas si vous êtes comme moi, mais je suis sou- 
vent plus préoccupé par les tâches que je n'ai pas 
pu accomplir, que par celles qu'il me reste à réali- 
ser. Alors, un beau jour, j'ai décidé de résoudre 
définitivement ce problème pour le moins épineux. 





J'ai tout d'abord observé ce qui se 
passait. Je me définissais, pour 
chaque semaine,un certain nombre 
de tâches à effectuer, mais sans 
évaluer la durée de chacune d'elle. 
Souvent, il m'auraiten fait fallu, soit 
travailler 24 heures sans interrup- 
tion, soit faire une dizaine de 
choses en même temps, afin d'ho- 
norer mes prévisions. arbitraires. 
Un vieux dicton affirme qu'il ne faut 
pas courir deux lièvres à la fois, etje 
ne peux pas plus avoir deux activités 
en un même temps ! 


Je n'ai eu aucune difficulté à m'a- 
percevoir que l'une des causes les 
plus importantes de mon problème 
était sans doute l'absence de plan 
de travail. 


Une solution m'est alors apparue 
absolument évidente: je devais 
m'imposer une certaine discipline. 
Pour cela, le meilleur moyen était 
d'élaborer un planning clair qui soit 
une représentation assez fidèle des 
tâches quotidiennes à accomplir. Il 
ne faut toutefois pas «verser dans 
l'extrême » qui consiste à mettre en 


place une programmation détaillée 
de ses activités, qui serait alors pa- 
ralysante. 


Le résultat, c'est que maintenant 
je suis plus efficace pour la réalisa- 
tion de l'ensemble de mes activités 
et ceci pour deux raisons princi- 
pales : 


. Suivre une ligne de conduite 
évite souvent de s'écarter de l'ob- 
jectif que l'on s'est fixé. En effet, 
j'avais une tendance naturelle à 
vouloir me consacrer à 36 affaires 
différentes sans en achever une 
seule. 


. Un problème bien posé est à 
moitié résolu. En effet, ce planning 
doit être avant tout réaliste, et ceci 
m'impose donc souvent de procéder 
à une analyse plus précise des élé- 
ments qui concourent à l'accom- 
plissement d'un travail donné : est- 
il nécessaire, par exemple, d'ac- 
complir telle tâche aujourd'hui plu- 
tôt que telle autre ? De même, il vaut 
mieux ne pas prévoir de travail écrit 
dans le train, etc. 


Commentaires sur le programme 


Le programme ici présenté surun 

Tandy TRS-80 a pour configuration 
une mémoire de 4 K octets de mé- 
moire vive MEV, un écran-clavier, 
un cassettophone. Le langage uti- 
lisé est le BASIC niveau Il. 
Le programme permet de prendre 
en compte 25 articles au mini- 
mum, dans une même période. 
(Nous appellerons article une 
plage horaire occupée sur 
l'agenda). 


L'utilisateur peut choisir parmi six 
possibilités : 

. création d'un article (avec 
contrôle des données entrées); 

. correction d'un article ; 

. interrogation d'un groupe d'ar- 
ticles, basée sur une date de départ ; 
le tri, avant la visualisation, est ef- 
fectué à partir de cette date; 

. liste de l'ensemble des articles : 
visualisation après tri, par page 
c'est-à-dire par groupe de 13 
lignes ; 

. Sauvegarde des articles : l'op- 
tion FIN déclenche le transfert des 
articles en mémoire sur une cas- 
sette, ce qui constitue notre fichier ; 

. chargement du fichier-cassette 
en mémoire, avec sélection sur la 
date: ne sont retenues que les 
plages horaires postérieures à une 
date fixée. 


Structure du programme 


Le corps du programme se situe 
de 10 à 610 comme suit: 

. de 10 à 90: identification de ta- 
bleaux - impression des com- 
mandes possibles - branchements 
alternatifs (suivant option); 

. en 100: création d'un article; 

. de 200 à 220: liste fichier; 
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. de 300 à 320: interrogation ar- 
ticles ; 

. de 400 à 430: correction arti- 
cles ; 

. de 500 à 540: chargement en 
mémoire d'un éventuel fichier-cas- 
-sette ; 

. de 600 à 610: création du fi- 
chier-cassette (sauvegarde). 


Nous trouvons ensuite six mo- 
dules (ou sous-programmes) : 

. de 1 000 à 1 099: vérification 
d'une date ; 

. de 1 500 à 1 510: introduction 
d'une date; 

. de 2 000 à 2 020: introduction 
de l’article avec contrôle ; 

. de 2100 à 2 120: tri sur la date 
et l'heure de début des plages ho- 
raires ; 

. en 2300: impression de l'en- 
tête ; 

. de 2400 à 2410: impression 
d'une ligne article, avec mise à jour 
du compteur de lignes. 


Charger le programme 


Lorsque le programme est chargé 
en mémoire, le message « READY » 
est imprimé ; 

. taper au clavier «RUN» (puis 
enfoncer « ENTER »); 

. Un menu présentant les six op- 
tions est affiché: l'utilisateur ré- 
pond en sélectionnant un chiffre de 
1à6. 


Messages divers : 


. DATE (SS/MM/AA).. ? : répon- 
dre de 01/01/79 à 31/12/80; 

. HEURE DE DEBUT...?: répon- 
dre sous la forme 13.30: 

. HEURE DE FIN..?: 
sous la forme 13.30. 


répondre 


Utilisation 
des fichiers-cassette 


. Chargement du fichier (option 
5]: DATE (SS/MM/AA).? Ne se- 


ront chargés depuis la cassette que 
les articles postérieurs à cette date 
(comprise). 


. Sauvegarde sur cassette (option 
6): rembobiner la bande cassette 
choisie pour le fichier, initialiser le 
compteur du magnétophone, à zéro, 
puis, avant d'enfoncer les touches 
« RECORD et PLAY », faire avancer 
la bande de quelques blocs (comp- 
teur à 3 ou À). 


NB : c'est une bonne idée que d'u- 
tiliser une cassette relativement 
courte (10 à 15 mn) et de changer 
de face à chaque utilisation de la 
cassette : on a ainsi beaucoup plus 
de chances d'avoir au moins une 
version pas trop ancienne du fichier 
stocké. Mais il faut penser à mar- 
quer très lisiblement la date d'utili- 
sation sur la bonne face de la cas- 
sette. 





Michel Favier 








Liste du programme 


19 KEA PROGRAANE L'AGENDA 
15 REA AUTEUN: MICHEL FAVIER 
20 REM COPYRIGHT L'ORDINATEUR INDIVIDUEL 


21 PORE 16553,255: NE %%% SPECLAL TRS-80 kwk 

25 CLEAK7OU:DIHJS(26) ,0(26) ,F(26) ,0S(26):AS= "TAPER : " 
30 CLS 

35 PRINT 

40 PRINTAS;"1 SI CREATION ARTICLE" 


45 PRINTAS;"2 SI 
50 PRINIAS;"3 SI 
55 PRINTAS 


LISTE FICHIER" 
INTERROGATION" 

SI CORKECTION":PRINT 
#0 PRINT SL CHARGEMENT FICHIER" 
05 PRINTAS SL FIN" 

70 INPUT CU: CLS 







15 IF C<1 OR C>6 THEN PRINT “UN AOMBRE ENTRE L ET 6 SVP'4 
600 


80 Où C GOSU 100 
85 GOTO 30 
90 REM === 


5200 ,300 ,400 ,500 


100 REM - CKEATLEON D'UN OU PLUSIEURS ARTICLES 


110 FOK I=P+l TO 26 

120 GOSUB 1500 : IF JS(I)="" THEN 19=1: 
130 GOSus 2000 

140 HEXT I 

150 I=19 

160 RETURN 

200 REM - LISTE DES DONNEES 
210 GOSUB2300 :GOSUB2100 :w=0 
220 FOR 1=1 TO P: GOSUB 2400 : 
230 COSUB 9100 : RETURN 

300 REA - INTERROGATION 

319 1=0:G0SUH1500 :C0SU82300 
320 FOR I=1 TO P: 
330 HEXT I 

340 GOSUB 9100 : RETURN 

REM - CORRECTION D'UN ARTICLE 
1=0: GOSUL1500 

FOR Im] TO b 


NEXT I 


ET L'AUTEUR 


1=26: 


:G0SUB2100 :W=0 
IF J$(1)=#J$(0) THEN GOSUB 2410 


990 REM -- VERIFICATION D'UNE DATE 

1000 UK=1: IF LEN(J$(I1))C>8 THEN 1940 

1010 IF RIGHT$(JS(1),2)>"80" OR RIGUTS(ISCI),2)<"79" THEN 1040 
1020 1F MID$S(JS(1),4,2)>"12" OR MID$S(JIS$C1),4,2)<"01" THEN 1040 


1030 


1050 oKk=0: 


1060 RETURN 


IF LEFT$SCJIS(1),2)>"0" 
‘1040 PRINTCHR$S(28);CHR$(27);CHR$S(27);"..,ERREUR DATE.,.."; 
GOosSuB 9100 


AND LEFT$(JS$S(1),2)<"32" THEN 1960 


1490 REM -- LECTURE D'UNE DATE 


1500 CLS:PRINT'PRESSER ENTER SLI FLN" 


1510 J$(1)="": 


REM POUR PERMETTRE L'UTILISATION DE ENTER 


1520 INPUT"DATE (JJ/MM/AA)."59J$(1) 
1530 IF J$(1)="" THEN P=1-] 
ELSE GOSUB 1000 : IF OK=0 THEN 1500 

1540 RETURN 
1990 REM == INTRODUCTION DE L'ARTICLE ET CONTROLE 
2000 INPUT "HEURE DE DEBUT,.";D(1) 

coro 35 2010 EF D(I)<O OR D(L)>24 THÈN PRINT CHKS(27): GOTO 2000 
2020 INPUT "HEURE DE FIN....";F(1) 
2030 IF F(1)<0 OR F(L)>24 THEN PRINT CHR$S(27): GOTO 2020 
2040 INPUT "OBSERVATIONS. ..,"3;0S$(1): OSC(I)=LEFTS(OS(1),29) 
2050 RETURN 


2090 REA -- TRI SUR DATE ET HEURE 


2100 FOR M=P TO 2 STEP -1 
2110 Tel: REA DONNEES SUPPOSEES DANS L'ORDKE 


IF J$(0)<>J$(1) THEN 460 ELSE GOSUB 2300 
PRINT"'MODIFICATION POUR CET ARTICLE (O OÙ N) ";: 
IF R$="0" THEN GOSUB 1520 :GOSUB 2000 

#60 NEXT LI 

470 GOSUB 9100 : RETURN 

500 REM - CHARGEMENT EN MEMOIRE D'UN FICHIER CASSETTE 
505 I=0:PKINT!PREPARER LE FICHIER-CASSETTE (PLAY)" 
510 INPUT"DATE DE DEAUT (JJ/MM/AA)..";J$(1):GOSUB1000 
515 Z$=J$(1) :GOSUB 2500 :JY=2Z9 :REM DATE SOUS FORME DE CHIFFRE 
520 PRINT'CHARGEMENT,...":INPUT#-1,P 
525 I=l:FOR J=1 TO P 

530 INPUT#-1 ,J$(1) 

535 INPUT#-1,D(1),F(1),0$(1) 

540 Z$=J$(1): GOSUB2500 
545 IF Z9>=J9 THEN I=1+1: 
550 NEXT J 

555 P=I-1:RETURN 

600 REM -- SAUVEGARDE SUR CASSETTE ET ARRET 
PRINT'PREPARER UNE CASSETTE VIERGE (PLAY ET RECORD)": 
620 GOSUB 9100 : PRINT" SAUVEGARDE...";: PRINT#-1,P 

630 FOR I=1 TO P 


REM ON NE GARDE QUE LES BONNES DATES 


640 PRINT#-1,JS(1) 

650 PRINT#-1,D(1),F(1),0$(1) 
660 NEXT 1! 

670 PRINT" * TERMINE x" 

680 END 

980 REM ---- 


2410 
2420 
2430 
2440 
2500 
2510 
2520 
2530 
2540 
2550 


2560 
2570 


3000 
9010 
9020 
9030 
9100 
9110 
9120 
9130 


GOTO 140 
2120 FOR N=M=1 TO L STEP -1 
2130 Z2S=JS(N) : GOSUB 2500 : B9=29: 
Z$=JS(N+1): GOSUB 2500 : CI=29;: 
IF B9<C9 THEN 2200 
2140 IF B9=C9 THEN IF DU(N)<=D(N+1) THEN 2200 
2150 T=O:REM LES DONNEES NE SONT PAS DANS L'ORDRE 
2160 B$=JS$S(N): JSCN)=2JSCN+1): JSCN+1)%B$ 
2170 Y=D(N) : D(N)=D(N+1) : D(N+l1)=Y 
2180 Y=F(N) : FON)=F(N+1) : FCnN+1)=Y 
2190 B$=0$(4): OS(N)=0$(N+1): O$(N+1)=8$ 
2200 NEXT N 
2210 IF T=1 THEN M=2: REM LES DONNEES SONT DANS L'ORDRE 
2220 NEXT M 
2230 RETURN 
2300 REM =- IMPRESSION DE L'EN-TETE 
2310 CLS 
: COSUB 2400 0 ati DATE DÉBUT FIN OBSERVATIONS" 
Hd Nb 14 2390 REM -- IMPRESSION D'UNE LIGNE 
2600 IF I-W>=1l4 THEN PRINT "SUITE" ;: GOSUB 9100 :G0SUB 2300 :4=W+13 


PRINT J$(1); 


PRINT USING #.5# 4. #ÿ.ué H."; DCI),FC1); 
PRINT TA8(34);0$(1) 

RETURN 

REM == TRANSORMATION D'UNE DATE EN UN NOMBRE 


REM CE SOUS-PROGRAMME TRANSFORME LA CHAINE Z$ CONTENANT 
REM UNE DATE SOUS LA FORME JJ/MM/AA EN UN NOMBRE Z9 QUI 
REM VAUT 10000*(AA4-79)+100*MM+JJ 
RÉM CECI PERMET LES COMPARAISONS DE DATE 
Z9=10000*(VAL(RIGHTS(Z$,2))-79) 

+ 100% VAL(MIDS(Z$,4,2)) 


+ VALCLEFT$(2$,2)) 
RETURN 
REM == 
REM == QUI OÙ NON 
INPUT R$: RS=LEFTS(RS$S,1): 1F K$="0" OR RS="N" THEN 9030 
PRINT"O OÙ N SVP";: GOTO 9010 
RETURN 


REM -- ATTENTE 


PRINT" QUAND VOUS VOULEZ"; 
R$=INKEYS: IF K$="" THEN 9120 
RETURN 
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HILLE POUR 3 EQUIPES 
FÉES PERTE ue pins me 
R= 1 A/C SE REPOSE : B 
At IST Ter vo pyrrss ini 
R= 2 B/C SE REPUSE : À 
CÉPLELILILLIL CLILLLLLILELLLEELLLLLEZL] 
R= 3 A/B SE REPUSE : C 
PR RÉ LEP EL Eur ne. ne 
GRILLE POUR 5 EQUIPES 
CEPIEBRESTENEESERNNUNNNERERRENCEEEREEES + 
K= 1 A/E B/D SE REPOSE : C 
CCPEELLELCLLLELLLLELELELLELECEL LEE CELL LEE 
R= 2 B/E C/D SE REPOSE : À 
van LÀ à dt Page But à cut dote Eole ddr bee À “oder éd: 
K= 3 C/E A/B SE REPOSE : D 
Lol nd den dr de Luds € ÉR N AA REX à dd DL nt dt Polotns Énod 
R= 4 D/E A/C SE REPOSE : 8 
ALLEZ ELLE LE CLET LE ELLE LLELES ELLE LL LEE 
R= 5 A/D B/C SE REPOSE : E 
LELLLLE EL LALLLESZLLEL ELA LE LZ LES LE LS DL LES LES 
GRILLE POUR 7 EQUIPES 
RL L LS LELELLELLLELELS LEZ LES LLES LLLLLELLELS:) 
R= 1 A/G B/F C/E SE REPOSE : D 
LERLLELELELLLELELLLLLELLELLE ELLE LE] — 
R= 2 B/G C/F D/E SE REPOSE : A 
LLLLELE LL LEE LEZ EE LAS LI LLLLELLLEEELELLL EX LE) 


R= 3 C/G D/F A/B SE REPOSE : Ë 


CECCELLELELLILLLILELLILILILLILLLLLELLLLS 


R= 4 D/G E/F A/C SE REPOSE : B 


CLLLLLS ZX RE LLLE LEZ EE LELLATTZ LL LE LEA EL LEE 


R= 5 £/G A/D B/C SE REPOSE : F 


K= 6 F/G A/E B/D SE REPOSE : C 
LL LE LEE LA LEZ EL LEE LE LEA LE LE LLL SRE LES 
R= 7 A/F B/E C/D SE REPOSE : G 
LARLELELLLELELL LELELELLLLELLLLLELELELE LELLEL LS 
GRILLE POUR 9 EQUIPES 

LALLE A ALL LE LRAL AAA LLE LE LEZ DLL LS 
R= l A/I B/H C/G D/F SE REPOSE : E 
nb LA LES LE RARE LELELELE LL TL LEE DLL LL } 
R= 2 B/I C/H D/G E/F SE REPOSE : À 
vasqesvqrs LLLLLLELLERLLLEEL LEZ LEE LL LL LELEL ES 
R= 3 C/I D/H E/G A/B SE REPOSE : F 
LRRLEL LEZ LE LELELELELLEEELLELELLELLELLLLE) 
R= 4 D/I E/H F/G A/C SE REPOSE : B 
RARE LLLLLLLLLLLLELLLLELLELELLLLLLLELELELS 


R= 5 E/L1 F/d A/D B/C SE REPOSE : G 


: C 


CELCLELTELELLLLILLLLLLELLLLLLIELLLLE 


R= 7 G/1 A/F B/E C/D SE REPOSE : Hl 


ÉCLPELLLL. 


R= 8 H/I A/G B/F C/E SE REPOSE : 


CCLELLEEL EL EPCEPTEPOETEL ELLE LEE EEE pe 


K= 9 A/H B/G C/F D/E SE REPOSE : I 


CECELLLLILLILLLELLLLLILLELLLLLEZE 


GRILLE POUR 11 EQUIPES 





10 REN 
20 REM 


* PREPARATION D'UN TOURNOI DE BOULES * 
AUTEURS MOHAMED BELAROUI ET IGNACE NICOLOSI 360 REM-""- 
30 REM COPYRIGHT L'ORDINATEUR: INDIVIDUEL ET LES AULEURS 370 PRINT"R=";R#1;" "; 





clubs 





droit au but: 
préparez le concours 


de votre club de boules 


Un jour, nous avons reçu une lettre d'Ignace 
Nicolosi qui nous appelait au secours pour 
l'aider à écrire un programme de préparation de 
tournoi de boules. Nous retransmettions alors 
son appel en « Courrier des lecteurs » et grâce 
à vous, et en particulier grâce à Mohamed 
Belaroui, le tournoi pouvait se dérouler en 
septembre sur ordinateur. 


Membre d'un club de boules et 
passionné d'informatique (depuis 
peu !), je voulais lier mes deux pas- 
sions pour l'organisation du tournoi 
annuel. Ce tournoi met au prise X 
équipes et X peut être impair. Dans 
ce cas-là une équipe est au repos à 
chaque tour tandis que les autres se 
rencontrent deux à deux. Avec X pe- 
tit, écrire un programme qui précise 
le déroulement du concours est 
simple si l'on utilise la technique de 
la permutation circulaire. Mais 
comme il devait y avoir plus de 20 
équipes, le problème devenait trop 
compliqué pour être résolu ainsi. 
D'où ma lettre à L'OI. Puis l'attente. 
Une longue attente jusqu'à fin août 
où enfin je reçus la visite de Moha- 
med Belaroui et de son programme 


350 REM 


4O REMRARRRRARARRRARRRARARRRARARARARRARARARARARRRAARAARXS 380 REtiner 


100 OPEN 5,4 
110 CMD 5 
120 PRINT” 


140 REMsveyvtus 
150 REM 
160 FOR X=3 TO 25 STEP 2 


:REM POUR IMPRIMER 390 RE 


400 FOR I=1 TO X 


salvateur (*). || ne me restait qu'à 
adapter ce programme sur mon 
CBM Commodore et bien sûr à l'es- 
sayer. Quant au test en grandeur 
nature, il n'aura lieu que dans 
quinze jours. 

Ce programme est bien sûr fort 
simple et par là même ne doit pas 
nécessiter de nombreuses modifi- 
cations pour être adapté à l'organi- 
Sation d'autres tournois. 

Si vous ne disposez pas d'une im- 
primante sur votre Pet/CBM , il suf- 
fit de supprimer les lignes 100 et 
110. 


Ignace Nicolosi 





{*) Nous avons reçu d'autres programmes 
traitant ce problème et remercions ici tous 
les lecteurs qui nous les ont envoyé. NDLR 


410 IF TI(I+R)=T2(I1) THEN 460 

130 DIM T1(50),T2(25),R$(25),L$(25),x1$(1) 420 IF RS(TL(I+R))="0" THEN 470 

430 IF RS(T2(1))="O0" THEN 470 

440 PRINT LS(TI(I+R));"/";LS(T2(I));" "s 


450 R$(TI(IHR))="0":RS(T2(1))="0": 


170 PRINT TAB(19); "GRILLE POUR ";X3"EQUIPES" 460 RI$=L$(T2(1)) 


180 PRINT”+rmpepmemmrmmmmmm meme 


190 M=INT(X/2) 
200 Y=X+(M*2) 
210 IF Y=0 THEN 540 
220 REMr+= 
230 REM 
240 FOR I=1 TO X STEP 1 
250 READ L$(I): TI(I)=I 
260 TL(I+X)=I: T2(I)=X-I+1 
270 NEXT I 
280 REM 
290 REM==- 
300 R=0 
310 REMsr+ 
320 FOR I=1 TO X 
330 RS(I)=" 
HEXT I 


cou. “ss. 470 NEXT I 


480 REHM 
490 REN--- 


500 PRINT “ SE REPOSE : 
510 PRINT'r++rrr"7 


520 R=R+1l 


GOTO 479 


“;R1S 


CELLEPEEEELEE CELLLELEEEELILLE. 


530 IF RÇX THEN 320 


540 RESTORE 

550 NEXT X 

560 REM 

570 REl=--remu« 
580 END 


600 REMXA##AAXARARRRAXARARÉARARARARARÉERRRRARARRÉÉRÉAR AE K 
1000 DATA DAT B GC ADEME", RG PARAIT 

1010 DATA OT AENE SO pe ONE MR ES me UpE 

1020 DATA TAN MAS 7 2 AN er 
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Première parution : L'Ol n° 22 


Première parution : L'OI n° 44 





bourse 


enfin une valeur sûre 
Dour gérer 


voire 
borteteui 


Pourquoi ne pas vous aider de votre Sinclair 
ZX-81, muni de son extension 16 Ko MEV et 
éventuellement de l'imprimante, pour gérer 
votre portefeuille de titres ? Vous pourrez ob- 
tenir grâce à ce programme, outre la comptabi- 
lisation des valeurs détenues (jusqu'à trente 
valeurs différentes numérotées de 1 à 30), le 
calcul de la rentabilité globale de votre porte- 





feuille, ainsi que celui de chaque valeur. 
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le de titres 


Au préalable, il vous faudra en- 
trer en mémoire près de 9 Kk- 
octets, en prenant bien soin de 
décrire chaque ligne telle qu'elle 
figure dans la'liste du programme, 
notamment pour tout ce qui est 
affichage de messages alphanu- 
mériques (même nombre d'espa- 
ces, etc.) et pour tout ce qui 
concerne la tabulation écran ou 
imprimante. 


La toute première fois que vous 
utilisez le programme vous devez 
faire RUN, puis, après l'affichage 
du menu, vous devez nécessaire- 
ment choisir l'option 5, c'est-à- 
dire la remise à zéro des fichiers 
mouvements. 


Tapez « oui » en toutes lettres ; 
cela est indispensable, car certai- 
nes variables doivent être décla- 
rées au cours de cette portion de 
programme. Vous pouvez alors 
mettre à jour votre fichier valeur. 


Vingt caractères sont 
disponibles pour 
chaque valeur 


Pour les utilisations ultérieures 
(le programme ayant été sauve- 
gardé précédemment par l’exécu- 
tion de la ligne 9020 SAVE 
« BOURSE »), après chargement 
du programme contenant les don- 
nées de votre portefeuille, l'exécu- 
tion se poursuit automatiquement 
par un GOTO à la ligne 100. 


Si au cours de vos transac- 
tions, il arrive que le programme 
s'arrête sur un compte rendu d'er- 
































POUR M.hA.YJ. 





POUR 
3 POUR 
POUR EDITION D UM RELEUE 


S POUR REMISE À ZERO DES 
FICHIERS MOUVEMENTS 


ST'FIN 


Menu général. 





1 POUR L IMPRIMANTE 


2 POUR L ECRAN 


93 SI FIN 


FICHIER VALEUR 


EDITION FICHIER VALEUR 





(939 SI FIN) 
NUMERO 12 


JOURNAL DES MOUVEMENTS 


COURS : 





QUEL NS VOULEZ METTRE À JOUR 7? 


LIBELLE: ESSAI 
à FRANCS 


FRAPPER 1 DRM PERSAN LE 













2 FOUR HOD1F ER LE COURS 


3 SI 


UOTRE REFONSE 


Menus pour chaque option] 









2 


1 POUR L IMPRIMANTE 


; 2 POUR L ECRAN 


93 SI FIN 








Programme de gestion d'un portefeuille de valeurs (suite et fin) 


8e 
3315 LET PUD=T-(R#PRU 
3320 LET UTE=UTE+#T 
LET on ge 
3339 GOTO 360 
LET CPNSCPNèT 
3609 PRINT AT 15,6; "SITUATION PO 
STERIEURE 
3605 PRINT AT 16,0; "#####2#H4R#6# 
ÉIIÉHESSSE" 
361 PP AU 17,8; ‘NOMBRE CE TI 


TRES: ” 
3618 PRÈNT AT LS PL IPRIX REVIENT 
AT AË » »25 PRIX REVIENT 


L: TEEN 
NT: 
UNITAIRE : 

2828 2e Xe THEN PRINT AT 21,0; * 
PLUS UALUE DEGAGEE: “;PUD;" FF" 
3628 PRINT AT 6,5; * 


COPY 

IF _INKEY 

2888 be 0 

Reaur TAB 7°" ES HE € 
LE PRINT AT 7,0;"1 POUR L IMPR 

soie PRINT AT 19,6;'2 POUR L ECR 

Îè2e PRINT AT 13,9:°8 SI FIN" 


THEN GOTO 3635 


025 IF INKEYS<> AND INKEV# <> 
san AND INKEVS53"9" THEN GOTO 40 
4030 LET AxCODE INKEY#-28 
4035 IF As=9 THEN GOTO 100 
4637 PRINT AT 16,8; "DATE D EDITI 
4038 INPUT X3 
4AG48 IF A=1 THEN GOTO 4508 
4188 CLS 
FAS LE Orge 
= 

ei PRINT TAS 8; ‘SEEN ES 

29 PRINT TAB 6; "AU “;XS 
4125 FOR N=1 TO 30 
4130 IF Q(N)=S THEN GOTO 4199 
4135 LET MT=0Q{N) #CiN) 
4140 GOSUB 91008 
4148 PRINT AT Ur2,0; va"; US tn) 
4147 PRINT AT U+8:YmT 
41508 PRINT Q (N); ; ;* FE 
4185 LET ACT Fu &5 20 s280 
416 PRINT ; “PRU: “;PRU;" PRG:"; 
4165 PRINT 4 DER: CP, LE “;Ds( 
{1 T 2);".";DS{IN)I 13 TO 4); ". “io 
SN) 45-76 6) 
4179 LET PTF=PTF+MT 
4175 LET Uau+S ; 
4179 IF U=208 THEN PRINT "APPUYER 
POUR LA SUITE” 
4180 IF U=28 THEN GOSUB 9998 
4181 IF U=20 THEN PRINT AT 21,0: 





IF U=20 THEN LET Leg 
419 NEXT N 
LET MT2PTr 
4210 GOSUB 9109 
PRINT AT 21,15; "TOTAL: 


F 
© GOSUB 9998 
4235 GOTO 4006 * 
@ LPRINT TAB 8; 


“TAG 


4503 INT 

4505 CPRINT TAB 6; "AU ‘“; x 
4510 LPR 

4515 ter. Pre =0 


4S25 FOR N=1 TO _39 


4538 IF O(N)=@0 TMEN GOTO 4590 
4535 LET MT=0(N) #C (N) 
4548 GOSUB 9109 
4545 LPRINT ;'"#"; (N); ñ 
6 LPRINT ;" 
a LPRINT © (N);" A"; CIN; F 
4558 LET PRU= (INT, (MIN) /6 (N) +10 
4560 LPRINT ; “PRU: “;PRU;" PRG: ° 
4565 LPRINT ; "DER. OP. LE “;DS(N 
TO 2);".";:DSINI {3 TO 4); ",."; 
N)tS TÔ 6) 


3 (1 
os 

458 

4568 LT VAR= (HT ZM UN) 1) +180 
4569 LPRINT AR« “; CENT CUAR«1 
92) 108; " pÈ“e 

70 PTF=PTF 


45 
4872 CET BRGTSPRÈT M EN) 
LET HT=PTE 

48% cosub 9100 
LPRINT 

+828 LPRINT TAB 15; 

4625 LET HT=PRGT 


4639 GOSUB 9108 
ere LPRINT 


“En; Tee Y 


649 CPRINT,: PRIX REUIENT TOTAL 
“; TB Y: PAST : 
ieig Pratt TAô 82; 20 ‘ 


4658 LPRINT 
4655 LET MT=PTF-PRGT 


L 
4669 GOSUB 9106 
IF DIFF<O THEN LET Y=Y-1 
4565 ee 3: "VARIATION EN FF:°"; 


4667 te. PRGT =0 THEN SOTO 4680 
4579 LET VAR= (PTT /PRGT-1) +109 
4675 GOSUS 9210 

4689 IF PAGT=S THEN GOTO 4689 
4685 GOSUB 9199 

4687 IF PUT<8 THEN LET Y=Y- 

Lot BAR 3 "PLUS UALUES DÉGAGE 


5890 LF PRÈT2S THEN GOTO 4705 
35 LET VUAR=(PUT/PRGT) +100 

£fee cosuë 9210 

47985 LET MT=CPN 

4718 GOSUB 916868 

4728 LPRINT ; "COUPONS ENCAISSES" 


3722 ŸEC PRGT =0 THEN GOTO 4735 
4725 LET UAR=(CPN/PRGT) +190 
4738 GOSUS 9216 






4735 LPRINT 

47408 LET MT=ABS (DIFF+PUT4+CPN) 
4745 GOSUB 9109 

see IF DIFF+PUT4+CPN+<O THEN LET 


750 LPRINT ; "TOTAL eee" iT 
AB Y:DIFF+CPN+PUT | 


4759 IF PRGOT=B THEN GOTO 4785 
Let sf UAR= ((DIFF+CPN#+PUT) /PRG 


4760 éosus 9210 
4765 LPRINT 

4779 LPRINT ; "TOTAL DES ENTRÉES: 
4778 LPRINT ; "TOTAL DES SORTIES: 
4789 LPRINT 

4785 LPRINT ‘HH#seR#RRSREIRERESEEE 


IRIS LI ess 
4790 go +000 


5009 
5005 PRINT AT 8,8;"OUI OÙ NON UO 
NLEZ VOUS FAIRE La” 

5618 PRINT AT 106,9; "REMISE A ZER 
S912 INPUT 


x 
S013 IF *a «> aux" THEN GOTO 109 


L'.] 
Se38 PRINT AT 12,8; "SI VOUS AUEZ 
?DE NON: "oo 
C EST FAÏT.” 
5 9998 


T 8,3; SAUVEGARDEZ U 


3018 PRINT AT 8; ''FRAPPEZ UNE 
TOUCHE PERES B06tR" PREPARE UVOTR 


E MHAGNETOPHONI 
9915 GOSUB 9998 

9029 SAUVE ‘BOURSE 

9025 GOTO_ 168 

3988 IF N3=10 THEN LET Z=0 

= Li 

5078 À 

9088 LET Y=0 

9898 IF C{N)>-19 THEN LET Y=1 
9091 IF CN) >=109 THEN LET Y=a 
9692 IF C(N) >=218909 THEN LET Y=3 
3093 LES CN > «16800 THEN LET Yz4 
9094 URN 

9108 LET Y=28 

9161 IF MT>=19 THEN LET Ye22 
2102 IF MT)>=108 THEN LET Y=28 
9183 17 HT>=1080 THEN LET Y=25 
9184 IF MT>=10880 THEN LET Y=24 
9105 1IF HI > =1080880 THEN LET Y=23 
3108 IF HT>=1000880 THEN LET Y=2 
9197 RETURN 

9210 LPRINT ;"*SOIT ‘"; (INT (UARS& 
28))/188;" PC” 

92215 RETU 

9388 PRINT AT 15,9; "OTE QUE > 
STE POSSEDEE, OPERATION RE 
FUSEE. 

2385 GOSUB 9998 

2319 GOTO 3612 


Mn, ne THEN GOTO 9998 


8866 OCTETS DE PROGRAMME, 
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Liste des variables 


Divers 
Total des entrées 


Cours de la valeur de 
type N 

Total des coupons 
encaissés 


Date de la dernière 
opération sur la valeur de 
type N 


Différence entre prix de 
revient et valeur du 
portefeuille 


Date d'opération 


Prix de revient global de la 
valeur de type N 


Type d'opération (entrée, 
sortie, etc.) 


Cours de négociation 


Prix de revient global 
d'une valeur 


Prix de revient global du 
portefeuille 


Prix de revient unitaire 
d'une valeur 


PTF 
PVD 


Valeur du portefeuille 


Plus-value dégagée sur 
une opération 


Total des plus-values 
dégagées 


Nombre de valeurs de 
type N détenues 


Quantité négociée 
Sauvegarde provisoire du 
libellé code opération 
Montant d'une opération 


Libellé de la valeur de 
type N 


Variation en pourcentage 
entre deux montants 


Total des sorties 
Compteur de lignes lors 
d'édition à l'écran 
Divers 

Numéro de colonne pour 
édition 

Utilisé pour la tabulation 








reurs, un GOTO 100 en mode 
commande permet de reprendre 
l'exécution du programme, en af- 
fichant à nouveau le menu (sur- 
tout ne pas faire RUN). 


Une fois le programme initia- 
lisé, procédez à la mise à jour du 
fichier valeur (option 1 ; vingt ca- 
ractères sont disponibles pour le 
libellé de chaque valeur ; le cours 
à mettre est celui de la date d'éva- 
luation souhaitée). 


Le programme de libellé 
des codes réalisé selon 
vos souhaits 





Ce fichier valeur peut être alors 
visualisé sur écran ou imprimé par 
le choix de l'option 2 du menu. 
Pour l'impression, la date peut 
être entrée sous toutes les formes 
(par exemple : 31 août 1982). 


Pour effectuer la saisie des 
opérations, prenez l'option 3 du 
menu. Vous disposez en tout de 
trois codes d'opérations : 


Programme de gestion d’un portefeuille de valeurs (début) 


AUTEUR MR ALAIN KIENLEN 


CLS 
PRINT TAB He, 
PRINT 


“2 FOUR EDITIC 
POUR JOURN 
POUR EDITI 


POUR REMIS 
FICHIERS M 


© PRINT AT 13,8;'4 
D UN RELEUE‘" 

9 PRINT AT 15,0; " 
A ZERO DES 


AND INKEY 
AACODE Tnkeys-28 


CL 
Zoe é6ra 1088z:nA 
1a2e CLS 


LC PRINT TAB 3; * 
LEPTs P. 
+8; “NUMERO _";N 


AT -$ 0 
182 PRINT AT 4: 8; “C'IBELLE : “"; US$ 
1958 PRINT AT 11,9; “COURS: ";CCN 
) ; FRANCS 


1660 PRINT AT 13,0; '"FRAPPER 1 PO 
UR MODIFIER LE 3 a 


BELLE 
CRD ESS LE COURS 9 SI 


F 
1070 IF INKEYS:>"1" AND INKEYSc<> 
ET AND INKEY 3429" THEN GOTO 1@ 


ee LET _A=CODE INKEYS$- 
80 IF A=S THEN GOTO 188 e 
1688, ERA AT 21,0; “UOTRE REPONS 


ke A=1 THEN GOTO 1188 
9S IF Az2 RAEN GOTO 12090 

INPUT Us! 

PRINT AT D, a; 


GOTO 1936 
INPUT CN) 
PRINT AT 21,9; °" 
GOTO 19508 


CLS 
DS PS m0; vour à mer 
EF] AT 7,8; "1 POUR L IMPR 
IMANTE* 


LE Ne HT dou 
(99 SI FIN 


Copyright l'Ordinateur individuel et Alain Kienlen. 
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rer PRINT AT 19,9; “ 


2è4e PRINT AT 13,8;' 
SS IF INKEYS:>“1" 
Fe" PND INRKEY# "9" THEN COTO 
LET A=CODE INKEY$-28 
IF A=9 THEN GOTO 188 
IF P=2 THEN GOTO 2560 
SPRINT AT 16,8; "INDIQUER LA 


ee x 
LP 


2 POUR L ECR 


‘AND NREY 8 < 


$. 
CÉRRARENRENARERESEX 

T 3; “EDITION DU FI 
PRINT TAB 6; “AU “";XxS 

CET xX#= 
INT jURRRASESRRERERSESRE 


CELA SERRE 
LPRINT ; BRU ONE 10; “LIBE 


“"; TAB 26; 
8 LPRI! 


es RhBT RE ph T io 
. en H 


LPRINT TAB Z;N;'"+";US(IN);"s= 
TAB Ne C {N) 
8 NEXT 
LS GTS D EDITION" 
CARHSSISSSHANENSER ER 


Lt ES DUT De Duc 
œ@ 


Ses le 
2550 FOR sitter *ro 36 
? THEN LSOTS 2588 
L +1 
S 
NT U+4é,Z;N;'"æ"; US CN) ; 
(26 2V) > È 
16 THEN GOSUB 9998 
THEN LET U=8 
8 “FIN D EDITION" 
S IF dssua THEN G6OTO 25908 
S2e CDrO 20 
1 
TRAD S;‘SSSSEE MS 


NT DURESFÉSHARSRSFESSEX 
+53" 


15 LET S$= 
FE Hi a 2, 8; "CODE VALEUR? 
199 SI FIN)" 
3025 INPUT N 


3026 IF N=99 THEN LPRINT “FIN D 
ie 

3027 IF N=299 THEN GOTO 1008 

3686 PRINT AT 2,8;U$(N);" CODE: 


3025 PRINT AT 4, “SITUATION PRE 
CEDENTE DU 108 {M [Es 

LAONETRS TO 4);". DS 
240 PRINT AT SD; “HSE ÉRRRSRS 
EFFETS 

B24S PRINT AT 6,6; “OUANTITE DETE 


3a50 PRINT Dr 7,8; "PRIX REUIENT 

GLOBA M (NN) ; 

LE Ie HN) =@ THEN LET PRU=9 
MIN) 29 THEN GOTO 3060 

3855 ET PRU=CINT (MIN) /O (N) 198 

3oée PRINT AT 8,6; “PRIX REVIENT 

UNITAIRE : _"; PARU 

SRE BRINT AT 18,9;"CODE OPERATI 


ELEC zé INKEYS<>"1" AND INKEYS <> 
52" AND INKEYS 03 *3 THEN G0T0 30 


3070 LET STRUDES INKEY $-28 
387S PRINT O0 
Dee PRINT À , 9; "AUTRE LIBELL 


3077 INPUT LS 


3079 Ir Er ês- : ie GOTO 30681 


EEE en 

882. PRINT AT 17: *o; 

3082 PRINT AT 21,5; 
HE 5 


"DATE ? 


35087 Fe DEN” PEs:é ‘THEN GOTO 50650 
3090 PRINT 21 58 
3095 PRINT AT 18, 8: UANTITE ? 


3108 INPUT 
3161 Ir Xe” AND RON) THEN GOTO 


3380 & 
3105, PRINT Lx 30,9;:08(X);":"; 
LE MES T 27:%9%$ 0% ro Si; 
Pr {S TO ê 
3ieë 591>"" THEN LET O$(X)=5% 
3119 PR AT 11,0; "#+#22###2255% 
TS LIIIN 
3115 PRINT AT 12,0; "AU COURS DE 
31 12b INPUT P 
34 INT PP; FF“ 
3136 PRINT AT 13,8; “MONTANT NET: 
3155 INPUT ‘4 
3148 PRINT T;" Fr“ 
2145 PRINT nt 15,0; "SAISIE CORRE 
31 
314 


2N 
£s FOR Z=1 TO 5 
NEXT_Z 
| AT 15,0; “EESSSENSSEE 


Z=1 TO S 
EEVSS AND INKEY$# «> 
» N_GOTO 31 
69 IF INREVSS TNT THEN GOTO 381 


65 LET Ds#$t =Es 
79 GOTO Aidorxt10e 





RÉXESELESE + # 


MTTZ IITFETT IT TI EETEEELIIS 


Li ORD.INDIVIDUEL 
HXRAEKEREREIEEELEEELE 


PRIX REVIENT UNITAIRE : 


ACHAT 
EÉRAXIXIRANEEEAILIRS 
AU COURS DE 
MONTANT NET : 


SITUATION POSTERIEURE 
ELREÉÉRELEEREREHEZTLEÉE 
NOMBRE DE TITRES: [1] 
PRIX REVIENT GLOBAL : 


FEERKRÉSRÉERRELÉESEÉÉERSEREEÉEÉEÉÉ EX 


L ORD, INDIVIDUEL 


OUANTITÉ DÉTÉNCÉ. 19 


ATTRIS.:10 LE 15.07.82 
AU COURS er a ee 


COURS DE a 
AONFANT NET: @ FF 
ER MEREA POSTERIEURE 

RERAIRIIÉESESR 
ITR + 


PRIX REVIENT UN . : 


RE EEHH SH HE HN ER RERSRÉRIESÉRÉÉERÉERE 


L ORD. INDIVIDUEL 


SUR RE Denenuer us 
SUANTITE DETENUE: 110 
FRIX RE OTENT GLOBAL : 


CODE: 1 
SITUATION PRECEDENTE DU 


:100 LE 12.05.82 


260 FF 
‘282S3.37 FF 


CODE: 1 
SITUATION PRECELENTE OÙ 12.06.82 


100 
I : 282S93.937 
PRIX REVIENT UNITRIRE: 282.53 


L.) 
28253.37 FF 
256.84 FF 


CODE: 1 
SITUATION PRECEDENTE DU 15.07.82 


28253. A 


CTLT LI): Programme 
d'édition d'un 5e 
journal des 
mouvements. 


HOHBRE CE Tirnes "333 


E DE TIT 


ES: 110 
PRIX REVIENT GLOBNL: 28253. 37 Er 
PRIX REVIENT UNITRIRE: 256.84 FF 


SEXES HÉEREERLRÉÉÉSEIIIESÉSÉÉRELE 


L ORD. INDIVIDUEL 


CODE: 1 


BAITOTÉON PRECELDENTE DÙU 30.07.82 
DE RE SE EL Là 
SUANTITE DETENUE : 


FRIX REVIENT 


1108 
GLOBAL: 292593.937 


PRIX REUIENT UNITAIRE: 256.684 


RENTE 


:40 LE 19.09.92 


RAASANUNANER ERA 


Au Cours 
MONTANT NET : 


SITUATION POSTERIEURE 


2932953.37 FF 
PRIX REUIENT UNITRAIRE: 282.53 FF 


es FF 
1288S.27 FF 


ÉEERNHHHÉRHERERFILHSES SE 


NOM 


BRE DE TITRES 
PRIX REUIENT GL 
PRIX REUIENT UNITAIRE: 256.84 FF 


PLUS MALUE DEGRAGEE: 2531.67 FF 


OBAL: 17979.41 FF 


D Dr To NS FF ATEENEXE 


FIN 


Programnie © 
d'un relevé de 
titres. : 


7e. 
PRU: 
DER. 


PRIX REUIENT UNITAIRE: 256.8 


COUPON 
RES ERS SERRES LSSS SES) 
AU COURS DE : 8 FF 
MONTANT NET: 688 FF 
SITUATION POSTÉRIEURE 


les entrées : code 1, 
les sorties : code 2, 
les coupons :code 3. 


Le programme vous demande 
cependant si vous souhaitez mo- 
difier le libellé correspondant à 
ces codes, par exemple « achat » 
au lieu d'entrée et « vente » au lieu 
de sortie. Le nouveau libellé ne 
doit pas comporter plus de six 
caractères. Si vous tapez seule- 
ment Newline, le libellé standard 
apparaît, par exemple : entrée. 


Le ZX-8 1 est une 
valeur sûre, si vous 
savez l'utiliser ! 








La date, dont l'introduction est 
demandée à la suite du libellé, 
doit, cette fois-ci, être émise sous 
la forme JJ MM AA (par exemple : 
3 mai 1982 = 030582). 


Afin de ne pas fausser les fi- 
chiers « mouvements », il y a lieu, 
pour toute opération telle qu'une 
sortie de droits (qui n’est pas une 
vente) accompagnée d'une attri- 
bution d'action(s), de sortir les 
droits avec le code entrée et d'ins- 


:110 LE 30.07.82 


PRIX REUIENT TOTAL: - 


* SORT DEN EURE 
56 S DALDÉS DEGAGEES : 


14.08 
COUPONS D'Or 
SOIT 4.659 PC 


D EDITI 


A 350.2 FF 
256.64 PRG:17979.41 


OP. LE 16.08.62 
56.34 PC 

24514 
17979.41 


6534.59 
rs 67. 
68@ A 


oo4s.28 


ss. 


IN 


3857 és: À RE 


TOTA 


TOT 


crire qualité et montant en « néga- 
tif ». 

Il en est de même pour toute 
annulation d'opération enregis- 
trée par erreur. 

Ci-dessous, voici maintenant la 
décomposition du programme. 


DES ENTREES: 
DES SORTIES. 


see 





DELLECEEEEEEPEECEREPETECEEEEEES 





N'oubliez pas que votre Sinclair 
est une valeur sûre, mais qu'il ne 
fait que ce que vous lui demandez 
de faire. 





Alain Kienlen 





L'Ordinateur 
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Au cours du Festival du Logiciel qui a eu lieu à 

la Chartreuse de Villeneuve-lez-Avignon du 8 au 31 juillet 1983, 

le public a désigné les meilleurs des logiciels écrits 
par des auteurs ‘“‘amateurs”. 


PALMARES 


Grands prix décernés par le CIRCA La Chartreuse 
Dominique Bertrand, pour son programme «Son» (10 000 FF). 
Daniel Delevoye, pour son programme «Test de caractère» 
(10 000 FF). 

Pascal Pellier, pour son programme «Formule 1» (10 000 FF). 


Prix décerné par L'Ordinateur Individuel 
Serge Nal, pour son programme « Damo» (10 000 FF). 


Prix décernés par RTL 

Grand prix «Jeune programmeur» à François Coulon, pour 
ses deux programmes «Aventure à Zorgon» et «Romulant» 
(7 000 FF). 

Second prix «Jeune programmeur» à Christophe Blanchot, 
pour «La France et ses départements» (3 000 FF). 

Prix «Club» au Club Ademir, pour «Krypton» (5 000 FF). 


Prix décernés par Antenne 2 à cinq jeunes programmeurs 
Eric Lablaine, pour son « Télécran» (2 000 FF). 

Pascal Anquetin, pour «Venusia et l'empire des Elistres» 
(2 000 FF). 

Gérard Samblancat, pour «Master Mind» (2 000 FF). 
Jean-Arthur Silve, pour «Galactic 3» (2 000 FF). 

Jean-Luc Perrin, pour «Envahisseurs» (2 000 FF). 


Prix décernés par l’Agence de l’Informatique 

Premier prix à Gilbert Montagner, pour «La tête dans le plat» 
(une configuration Goupil 3). 

Deuxième prix à Michel Perrault, pour son «Jeu de Kim» (une 
configuration TO 7). 


Troisième prix à Stéphane de Luca, pour «Maestro» (TO 7). 
Quatrième prix à Bertrand Gayet, pour «Multigraph » (TO 7). 
Cinquième prix à Jean Lépine, pour «Jeu de la pendule, 
encadrement» (TO 7). 


Prix décernés par la Fondation de France 

Premier prix à Jean Lépine, pour «Labyrinthe et isométries » 
(10 000 FF). 

Second prix à Pierre-Alain Goupille et Jean-Claude Robinet, 
pour leur programme «Unité Centrale» (5 000 FF). 


Prix décerné par la Caisse des dépôts et consignations 
Jean-Yves Garnier et Olivier Sidler, pour «Diabolo» 
(16 000 FF). 


Prix décerné par la Compagnie Bull 
Association française pour la lecture, pour «Elmo» (15 000 FF). 


Prix décernés par Vifi-Nathan 

Prix «Education » à Jean-Claude Attal, pour «Calcul Mental» 
(une configuration TO 7). 

Prix «Jeu» à Philippe Baroin, pour «Descente à ski de 
l'Everest» (TO 7). 

Prix «Gestion Familiale» à Dominique Otello, pour «Suivi 
de CCP» (TO 7). 


Prix décerné par Thomson 
William Hennebois, pour «Rebelle» (une configuration TO 7 
complète). 


Le Festival du Logiciel a été organisé par le CIRCA La Chartreuse 
avec le concours de la revue L'ORDINATEUR INDIVIDUEL et de 
la Coopérative de Conseils TEN, et avec la 


| participation de RTL et d'Antenne 2. 
.| Référence 120 du service-lecteurs (page 172) 





Au cours du Festival du Logiciel qui a eu lieu à la Chartreuse 
de Villeneuve-lez-Avignon du 8 au 31 juillet 1983, 
le public noninitié a utilisé plusieurs dizaines de logiciels 
écrits par des auteurs individuels ; 
une vingtaine d’autres logiciels étaient proposés 
par leurs éditeurs et sont disponibles dans le commerce. 


Les premiers ont fait l’objet de prix dont leurs auteurs 
ont été lauréats, et les organisateurs sont heureux 
de mentionner ici les logiciels commerciaux qui ont été 
les plus demandés et appréciés par le public de ce Festival. 


Galaxie-L: jeu d'adresse et de réflexion: une navette 
spatiale dans un labyrinthe, à la recherche de diamants (édité 
par Ediciel (Matra-Hachette), rue Jean-Pierre Timbaud, 
BP 66 - 78390 Bois d’Arcy). 


Diététique rappelle les principales notions et les grandes 
règles de la diététique puis passe à la pratique en composant 
un menu adapté aux besoins de l'utilisateur (édité par 
Vifi-Nathan). 


EdiLogo: langage informatique interactif avec le gra- 
phisme de la tortue: apprentissage de la logique, du raison- 
nement et du travail en groupe (édité par Ediciel). 


Léna 1 : un cours rédigé en français sous forme de 26 leçons 
de Basic Applesoft, 120 programmes expliqués et exécutés 
sur l'écran, et un jeu de 140 questions-réponses (édité par 
André Finot, 8 allée Bouffon, 91000 Evry-Courcouronnes). 


Pictor: logiciel pour composer à l'écran des tableaux 
réalistes ou abstraits, des paysages et pour les colorier (édité 
par Vifi-Nathan, 17, rue d'Uzès - 75002 Paris). 


Logo: langage de programmation pour tous, enfants et 
adultes n’ayant jamais touché à un ordinateur, permettant de 
créer des figures avec la tortue et le petit triangle sur l’écran 
couleur sans aucune instruction complexe (édité par SMT, 
22 rue Saint-Amand, 75015 Paris). 


Mélodia: qui permet de composer une mélodie, de 
l'écouter, de l'améliorer, de la transformer... et d'apprendre 
quelques notions de solfège (édité par Vifi-Nathan). 


Motus (jeu du cochon): le joueur propose une lettre à 
l'ordinateur, si elle fait partie du mot à trouver, elle s'affiche 
à sa place dans le mot, sinon le cochon perd une partie de 
son corps. 


Le Festival du Logiciel a été organisé par le CIRCA La Chartreuse 
avec le concours de la revue L'ORDINATEUR INDIVIDUEL et de 
la Coopérative de Conseils TEN, et avec la 
participation de RTL et d'Antenne 2. 


Référence 120 du service-lecteurs (page 172) 

























EXPERTS EN LOGICIEL MICRO 


Concepteurs, Réalisateurs, Distributeurs de progiciels 
e Modules d'initiation E.A.0. 
e Applications familiales 
e Jeux de réflexion et d'adresse 


ORIC 1 ORIC:1 


— 


EDUSCOPE 7 - l'initiation au BASIC “colorée et sonore" 
3 cassettes + manuel 30 pages 360 FTTC 


ORISCOPE 1 - la maîtrise de la basse résolution 
1'Cassetie-tlivrets Serre Rs PT SR se. 86FTTC 


ORISCOPE 2 - la maîtrise de la haute résolution 
1 cassette + INrét.. SEL UNE RP na 86FTTC 


ORISCOPE 3 - la maîtrise de la musique 
CASE MORE ess a panssev esse 86FTTC 


COMPTASCOPE 2 - gestion familiale des recettes el dépenses … 160 F TTC 


APPLE dprie 


© EDUSCOPE 4 - l'initiation au BASIC APPLE SOFT 
? disques simples + manuel 70 pages 590F TTC 


Ü 





e 


O 








0 


O) Catalogue des logiciels “ARTIC” sur simple demande 


ZX 81 ZX8| 


© EDUSCOPE 1 - initiation grand public au BASIC et concepts informatiques 


f 
: 
Î 
Ë 
I 
Î 
: 
Ï 
Ï 
| 
À 
à 
À 
Ë 
I 4 cassettes - 1 manuel 100 pages …................................... 360FTTC 
ù 
Ï 
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: 
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f 
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Ë 
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l 
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ORDINATEURS 


Familiaux 
si] 
Professionnels 

Pour Tous 


Pour obtenir un catalogue et la liste 
de nos prix, découpez ce bon: 












EDUSCOPE 1 - 10 programmes d'applications - 1 cassette 90FTTC 
EDUSCOPE 2 - pour les passionnés - initiation à l'ASSEMBLEUR Z80 
320 


O O 













© COMPTASCOPE 1 - gestion familiale - 1 cassette... 100FTTC 
D PLAYSCOPE 1 - le jeu des anagrammes- 1 cassetie 85FTTC 


O1 PLAYSCOPE 2 - 25 lettres au choix pour composer des mots 
“le compte est juste" - 1 cassette 85FTIC 


O1 PLAYSCOPE 3 - OPLAH la grenouille espiègle 85FTTC 


© EDUSCOPE 6 - initiation à la programmation BASIC 
{ disque souple + manuel 50 pages 
(préciser le type de disque souple à la commande D2, D4, D8) …. 590FTTC 


SHARP MZ8048 SHARP 


Q EDUSCOPE 3 - initiation au BASIC 
1 disque souple + manuel 85 pages 540FTTC 


























Nom 









Prénom 














Adresse 





Je désire recevoir les progiciels suivants indiqués dans les cases ci-dessus, 
Je choisis de payer : 
O1 par CCP ou chèque bancaire, établi à l'ordre de CF2E, 
joint au présent bon de commande 
O directement au facteur, moyennant une taxe de contre-remboursement 
de 16F. 
Adresser vos commandes à : 
CF2E Val de Loire - 11 rue d'Alsace 49000 ANGERS - tél. : (41) 88.62.76. 








Ville 






















Code postal Tél. 









Date : Signature : 
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ds FT 
cartouches jeux 
| ME" 
Le INTERCEFTEUR MINEUR DESTRUCTEUR 


adaptateur. graphiq 








un © Ia: 
DINKEUR CROGLIEUR EMVRAHISSEUR 
ET BIEN 
D'AUTRES 
A VENIR 
ACTES RTOUCHES DISPONIBLES 


ee CE on CA CE CP #08 CB CN Eu 
“HElklliEL | 


FREE “ay ACTUELLEMENT 
2 Re Re a. : DEMANDEZ SR 


GÉNÉRAL SOFTWARE 
CARTOUCHES ET CASSETTES 
pour 
ZX 81, ORIC, SPECTRUM, viê pi) 

ur et sonore | Xe, COMMODORE 64 







Sélection des meilleurs logiciels. 
es noms les plus prestigieux 


-/CASES COMPUTER SIMULATIONS 

—! Mr. CHIP SOFTWARE 

+ HEWSON CONSULTANTS 
IMAGINE 
INTERCEPTOR MICRO'S 

— JK GREY ENTERPRISES 

— LLAMASOFT 

; — MARTECH GAMES 

— MIKROGEN 

— QUICK SILVA 

— R and R SOFTWARE 

— 1JK SOFTWARE 

— NEW GENERATION SOFTWARE 


Les produits de VTR Software sont disponibles 
dans les points de vente VTR Informatique. 


JNNECTEZ LA CARTOUCHE 
et VOUS JOUEZ! 
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D et 15h-19h. 
ardi au samedi inclus. 
arcadet Poissonniers 







in Département de Vidéo Telemat Report Sarl ços' ji 


LL NUMEROS POUR (5 FF 






















L'ordinateur et ses appli. 

cations professionnelles : 
pourquoi et comment s'informati- 
ser ? La facturation. Le traitement 
de textes. En archéologie, Dans 
Une station-service, Dans un cam- 
ping. La comptabilité et la trésore- 
rie d'un chausseur @ Essais: 
Toshiba T-200, New Brain, Canon 
CX1, l'imprimante GP 100; Vi- 
sifile, le Basic français @ Ap- 
prenlissage de la lecture avec un 
MZ-80 @ Régler les files d'attente 
avec un ordinateur @ Comment 
faire parer votre ordinateur @ 
Jeux: guerre de l'espace sur ZX- 
81, faire du dessin animé @Tour- 
noi d'Othello @ Le SICOB 82, 
l'expo PCW de Londres @ Bien 
parier en Basic. 





















L4g bureau : la bureautique ; 
les 5 « calques » T/Maker, Super- 
calc, Calcstar, Mullipian, Visicalc ; 
bien choisir une imprimante ; les 
syslèmes de traitement de texte et 
un programme sur CBM ; modifier 
Wordstar @ Essais: extensions 
sur TI-99/4A, Oric 1, Alcyane A6, 
Rainbow 100, Professional 350; 
Quiz Master, Homard infernal, 
Blasto, Visidex @ La gestion d'un 
conseil municipal; apprendre là 
géographie @ Jeux: 24 Heures 
du Mans, alunissage, torpille et 


balhyscaphe @ 












CHETLE e 
LES ORDINATEDRS 4 ue 





lection de jeux électroni- 
ques @ Un ordinateur dans un 
atelier de menuiserie @ Un fichier 
de 1000 clients sur une disquette 
e Essais : TI-99/4 A, Casio 801, 
Victor 2, Epson HC-20; ski sur 
Mattel, Kabul Spy, football sur TH- 
99/4 A Wordindex, Othello ; Visi- 
calcul @ Enseignement et ordina- 
teur © Jeux : casse-briques, 421, 
train électrique, Awalé, bridge 
challenger contre bridge dupli: 
cate @ La reconaissance des 
formes @ à l'intérieur du FX- 
702 P, du PC-1500 @ 





Les ordinateurs 16 bits : 

évolution technologique 
ou nouvelle mode ?; panorama 
de O1. 16 bits; les processeurs 
16/32 bits et leurs systèmes d'ex- 
ploittion @ Essais: PC 8201, 
Goupil 3 ; Parsec, Catels and Cut- 
throats, Bascom © L'informati- 
que en milieu carcéral ; le dessin 
animé; dessins en perspective ; 
programme de tri rapide @ Jeux : 
envahisseurs @ Infora à Lyon, 
Cebit à Hanovre, West Coast 
Computer Fair, Micro-Expo © 
Présentez correctement vos pro- 
grammes @ 










# ORDINATEUR 































44 Langages : lequel choi- 

sir ? ; l'évolution des lan- 
gages ; le langage C ; le langage 
Ada, interpréteurs et compila- 
teurs; un système d'EAO @ Un 
apple dans une pyramide @ Une 
paroisse gérée par ordinateur @ 
Essais : PHC-8000 de Sanyo, Bus- 
80; Calcstar, TO 7, ZX-M @ La 
gestion d'un portefeuille de titres 
sur un ZX-81 © Musique sur 
clavier Qwerty @ Jeux: martin- 
gale, rubik's cube, billard @ 


INDIVIDUEL 


Les jeux: qu'est-ce que 
le jeu sur ordinateur ; 81 


logiciels de jeux sur Apple 2, Ata- 
1i400, Atom, Sharp MZ 80, 
TI99/4A, TRS 80, Vic 20, Victor 
Lambda, ZX 81 ; programmez vo- 
tre jeu @ Essais : Commodore 64, 
Sanco 8001, Regence et Philidor ; 
Visischedule @ Programmation et 
jeux: gestion de cassettes sur 
TRS 80: esquive sur HP 410, 
trésor des Templiers sur CBM ; le 
pendu sur TI 99/4A @ Les jeux 
vidéo @ Expos: NCC et Apple 
Fest en Californie. 











ORDINATEUR 
INDIVIDUEL. 





Création artistique et in- 

formatique : graphismes, 
musiques et animation visuelle ; 
interview d'une artiste ; enseigner 
les arts plastiques ; tracer un arc- 
en-ciel ; la bande dessinée ; gra- 
phisme sur TRS; apprendre la 
guitare ; logo sur ZX-81 @ Les 
nouveautés de janvier @ Un ordi- 
nateur au Sahel @ Essais : Génie 
Couleur, Mattel Intellivision, 
Z-100 ; Armor Battle, Time Zone, 
Apple Plot, D-Base 2 @ Jeux : les 
naufragés sur ZX-81, les météori- 
tes sur Vic 20 @ Tout savoir sur e 
e. 









5 ans d'informatique indi- 
viduelle. En France: Si- 
cob, Micro-Expo ; aux États-Unis : 
NCC ; au Japon : Micro Computer 
Show ; en Belgique : Compec Eu- 
rope 83 @ Essais : IBM PC, Lynx, 
Atari 400, AX20; Factor, Alcor 
Pascal, Corp @ Programmation et 
jeux: distorsions de dessins sur 
ZX 81, musique et figures géomé- 
triques sur Apple 2, programmer 
plus vite sous CP/M en Z 80 (); 
les fantômes du Commodore 
(), un explorateur sur Vic 20, 
Othello sur TRS 80 et IBMPC, 
casse-briques sur Pet de CBM @ 
Les banques de données. 














Tout sur les ordinateurs 
portables et portatifs: pa- 
norama des 11 portables parlant 
Basic, et des 20 portables que l'on 
pourra bientôt trouver en France ; 
lequel pour votre examen @ Es- 
sais: Casio PB-100, CC-40, HP- 
75C, Apple 2: ; Hustle, Apple-Wri- 
ter 2, Silicon Office @ 17 000 O1. 
dans un quartier ; quel est votre 
biorythme ? ; gérer des fichiers @ 
Jeux : échecs, flipper, labyrinthe 
© Les codes-barres au Japon @ 
Un Basic en français @ 









L'ordinateur, outil péda- 

gogique : les premiers bi- 
lans; se former pour travailler ; 
s'initier à Logo (!); le langage 
Logo sur Atom ; un problème de 
physique ; des équations à géo- 
métrie variable ; EAO: les trois 
didacticiels @ Essais: Micral 
90/50, Victor Lambda 2HR, Jupi- 
ter Ace, Prestige Challenger ; 
Calc-Result, Perfect Writer, Su- 
perscripsit @ Programmation et 
jeux : la géographie française sur 
Apple 2, rythme sur Oric, traite- 
ment de texte sur FX 702 P, pro- 
grammez plus vite sous CP/M en 
Z 80 (11); les Zworks à Orionpolis 
sur TRS, P'Ti Man sur TI 99/4A, 
jeu de Yam avec un ZX 81, le 
vaisseau de la dernière chance 
sur CBM. 




























Inteligence artificielle, ro- 

botique, insertion des 
handicapés : une maison automa- 
tisée à Paris ; des OI. pour handi- 
capés moteurs ou sensoriel ; la 
reconnaissance de la parole @ 
Essais : Dr 32, Multisoft, Lo- 
gabax LX-528; Bonzo, Pictor, 
Multiplan @ Dessiner @ Horloge 
sur TRS-80, nouveaux caractères 
sur Vic-20, géographie dans l'es- 
pace, oracles chinois sur ZX-81, 
lire la mémoire d'une HP-41 C @ 
Jeux : pétanque, Hector, Donjons 
et dragons @ Enquête: Lec- 
teurs, qui êtes-vous ? @ 


[53] 18 ordinateurs : d'un Ba- 
sic à l'autre. Tableau 
comparatif pour adapter les pro- 
grammes Basic d'un ordinateur à 
l'autre ; non aux ; Choi- 
sir votre bibliothèque CP/M ; pro- 
grammer facilement en assem- 
bleur; programmation récursive 
sur Goupil et Apple2 @ Alice, 
Gavilan @ Essais : Sharp MZ 730, 
Sanyo PHC25, Tandy 100; 
Volkswriter, Omnis © Program- 
mation et jeux : horloge sur Vic 20 
où Oric, trajectoire sur PC 1500, 
programmez plus vite sous CP/M 
en Z80 (ll); les fantômes du 
Commodore 64 (Il), shadocks sur 
ZX 81, l'Enterprise sur TRS 80 @ 
Expo: Sicob @ S'initier à Logo 
{l) @ Délocaliser des labels lo- 
Caux. 








BON DE COMMANDE 
à retourner à L'ORDINATEUR INDIVIDUEL (Service Numéros), 39 rue de la Grange-aux-Belles, 75484 Paris Cedex 10 accompagné de votre règlement. 
Nom Prénom 
Adresse 
Pays code postal Ville 





Veuillez me faire parvenir les 4 numéros suivants (cochez les numéros choisis) : 


Be] & E LL 1 EE El E1 & 








* Ci-joint mon règlement de 66 FF 
{Étranger 80 FF, Belgique 535 FB, 
Suisse 22,5 FS) 





Abonnez-vous 


A lfLoROINATEUR 
INDIVIDUEL 


Pour être certain de ne manquer aucun numéro, abonnez-vous. 
Vous recevrez tous les mois L'ORDINATEUR INDIVIDUEL chez vous. 
Et nous vous offrons en plus de faire une économie importante. 


En nous retournant le bulletin-réponse ci-dessous, 
vous paierez 198 FF pour 11 numéros au lieu de 242 FF 
et VOUS recevrez en cadeau deux numéros à choisir à la page ci-contre. 


BULLETIN A RETOURNER AUJOURD'HUI MÊME 
à L'ORDINATEUR INDIVIDUEL service abonnements, 39 rue de la Grange aux Belles, 75484 Paris Cedex 10 
Prénom CLS RMI EENT 





Nom RES 1 








Adresse 
Ville 





Code postal 





Pays 


Veuillez m'abonner pour un an (11 numéros) à L'ORDINATEUR INDIVIDUEL. L 
Par ailleurs je souhaite recevoir les deux numéros suivants (cochez les numéros choisis), 


We] (al [a] las] Le] le] la] Le] Ed [s] Ed [ 


D 





Le service lecteurs de L'Ordinateur 
Individuel permet d'obtenir, des orga- 
nismes et sociétés, des informations 
complémentaires sur leurs activités et 
sur leurs produits. Les informations 
contenues dans la rubrique Quoi de 
neuf du Magazine de l'informatique 
pour tous sont référencées dans l'in- 
dex ci-contre: celles des publicités 
dans l'index ci-dessous. Utilisez la 
carte réponse page 11 en cerclant les 
références des informations, rédac- 
tion ou publicité, qui ont retenu votre 
attention. 


service lecteurs 


Hercet micro informatique 


La commande électronique 

La librairie informatique d'aujourd'hui 
La Scool 

L'ordinateur de poche 

L'ordinateur personnel 


La collection complète, les anciens 
numéros et les dernières parutions de 


Micro expansion 

PME Computer 

PSI Diffusion 

Run Informatique 

Saari 

Semaphore Consultant 
Vismo 

Vidéo Telemate Report 
ZH Computer 





Informatique 


L'ORDINATEUR d'Aujourd'hui 


INDIVIDUEL 


sont disponibles à la 


TOUS VOS lvres et 
TOUTES vos A7 


LIBRAIRIE INFORMATIQUE D’AUJOURD'HUI 
253, rue Lecourbe, 75015 Paris - Métro: Convention ou Boucicaut, ouvert du lundi au samedi de 9 h à 19 h 





Z #° # 
AP 
LA L Ÿa 


Pau es 


PME COMPTARRITE" 


@oPrie 
@arrie 


Système d'exploitation : Ordinateur APPLE - 2 Floppy - Une imprimante série ou parallèle. 


PME ADRESSES * 


500 adresses par disquette 

Nombre de disquettes illimité 

Mise à jour du fichier adresses à chaque 
création 

Consultation instantanée des adresses, 


A NOTER : 


Divers modes de sélection desétiquettes 
adresses et du classement. 

Fichier adresses avec No de téléphone 
et nom du décisionnaire, 

Mailing personnalisé avec le traitement 
de texte EPISTOLE. 


PME AMORTISSEMENTS * 


500 immobilisations par disquette 
Nombre de disquettes illimité 

Mise à jour du fichier immobilisations 
à chaque création 

Consultation instantanée des immobi- 
lisations. 


A NOTER : 


e Calcul des plus ou moins-values à long 
et court terme. 


e Etiquettes auto-adhésives pour identi-: 


fication physique des immobilisations. 

e Changement ancien / nouveau Plan 
Comptable sans modification dessaisies 
antérieures. 


. PME COMPTABILITE * 


2500 écritures par 2 disquettes 
Nombre de disquettes illimité 

Mise à jour des comptes à chaque saisie 
d'écriture 

Consultation instantanée des comptes. 


NOTER : 


incorporation instantanée d'une écri- 
ture omise dans n'importe quel mois 
de l'exercice. 

Bilan et compte d'exploitation sim- 
plifié. 

Ancien et nouveau Plan Comptable, 


Option disque dur en mono ou multiposte. Documentation sur demande et démonstration. 
PME COMPUTER S.A. - 18, rue Botzaris 75019 PARIS - Tél. : 241.66.11 


Pour toutes précisions sur la société ou le produ 
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: Référence 102 du service-lecteurs (page 172) 


sur la société ou le produit présenté ci-dessus 


Pour toutes précisions 






Disques durs 


MÉMICRO-EXPANSION 


5 Place Mal Lyautey - 69006 - LYON - Tél. (7) 893.00.42 





La Référencel!! 









































